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ABSTRACT 


The function of the DMC11 diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfig that there are no malfunctions and the all operations 
cf the DMC11 are correct in its environment. 


Parameters must be set UR to alert the diagnostics to the 

configuration. hese parameters are contained in the 
STATUS TABLE and are generated in two ways: 1) Manual 
Input - the operator answers questions. 2) Autosizing - the 
program determines the parameters automaticaliy. 


DZDME tests the OMC-11 Line Unit (M8201 or M8202). It 
performs write/read tests on the DMC Line Unit registers. it 
checks for proper transmitter, receiver, and BCC operation in 

CMP mode. The modem signals are also checked. ODZDME 
requires a OMC Micro-Processor (M8200 or MSCO4) to run. For 
best diagnosis a turn-around connector should be installed, 
a omens @ diagnostic will run without it (some tests are 
skipped). 


Currently there are five off line diagnostics that are to be 
run in sequence to insure that if an error should occur it 
will be detected at an early stage. 


NOTE: Additional diagnostics may be added in the future. 
The five diagnostics are: 


DZDMC [REV] Basic W/R and Micro-processor tests 
DZDME [REV] DDCMP Line unit tests 

DZOMF [REV] BITSTUFF Line unit tests 

DZDMG [REV] Jump and Crom tests 

DZDMH [REV] Free-running tests (Heat test tape) 


REQUIREMENTS 

EQUIPMENT 

a POP11 family CPU (except an LSI-11) with minimum SK memory 
ASR 33 (or equifsvalent 


OMCLI-AR wi MC11-DA or OMCLI-FA or 
OMCLI-AL with OMCLI-MA or DMCLI-MD 


Un £ Gore 
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STORAGE 


Program will all 8K of memor ept where ABL and 
BoOtSTRAP LOADER reside. Location$ 1§56 Rhru 1640; contain 
the “STATUS TABLE” information which is generated at start of 
diagnostics by manual input (questions) or automatically 
(au eo This area is an overlay area and should not be 
altered by the operator. 


LOADING PROCEEDURE 

METHOD 

All pre rams are in absolute format and are loaded using the 
ABSO UTe LOADER. NOTE: if the diagnostics are on a media such 


as DISK ,MAGTAPE,DECTAPE, or CASSETTE; follow instructions 
for the monitor which has been provided on that specific 


media. 

ABSOLUTE LOADER starting address #500 
MEMORY # SIZE 

Sk 7 

Sk 37 

lek S7 

1k 77 

20k 117 

4k 137 

28k 157 


Place address of ABS loader into switch register. 
(alse place ‘HALT’ SW up) 


Depress "LOAD ADDRESS’ key on console and release. 


Depress “START KEY* on console and release (program should now 
be loading intc CPU) 
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STARTING PROCEEDURE 


a. Set switch register to 000200 

b. Bepress *LOAD ADDRESS’ key and release . 

c. Set SWR to zero for AUTO SIZING’ or SWR bitO=1 for manual 
input (questions) or SWR bit7=1 to use existing oarameters 
set up by aprevious start or a previously run DMC11 

iagnostic. 

d. Depress *START KEY’ and release. The program will type 
Maindec Name and ee name (if this was the first start 
up of the program) and also the following: 


MAP OF DMC11 STATUS 


PC CSR STATI! STAT2 STATI 


001509 160010 145310 177777 000000 
001510 160020 145320 177777 000000 


The program will type ’R’ and proceed to run the diagnostic. 
The above is only an example. This would indicate the status 
table starting at add. 1500 in the program. In this example 
the table contains the information and status of two DMC11°S. 

THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 

., DONE. For information of status table see section 8.4 for 
elp. 


If the diagnostic was started with SWOOQ=1 indicating manual 
parameter input then the following shows an example of the 
questions asked and some example answers: 


HOW MANY DMC1i°S TO BE TESTED?! 


01 
CSR ADDRESS? 160010 

VECTOR ADDRESS?310 

BR PRIORITY LEVEL? (4,5.6,7)75 
DOES MICRO-PROCESSOR HAVE GRAM? ‘Y OR NIN 

WHICH LINE UNIT? IF NONE TYPE “N™, IF M8201 TYPE “1”, IF 


IS THE LOOP BACK CONNECTOR ON?Y 
SWITCH PAC#1 (DDCMP LINE#)?377 
SWITCH PAC#e (BM873 BOOT ADD) 7377 


Eeltouing the questions the status map is printed out as 
described above, the information in the map reflects the 
answers to the qusstions. If_ the diagnostic was started with 
SWOO=0 and SWO7=0 (AUTO-SIZING) then no guestions are asked 
and aly the status~map is printed out. { AUTO-SIZING 1s 
used the status information must be verified to be correct 
(match the hardware). if it does mot match the hardware the 
Siopeostis must be restarted with SWOO=1 and the questions 
answered. 
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CONTROL SWITCH SETTINGS 
SW 1S Set: Halt on error 


SW 14 Set: Loop on current test 

SW 13 Set: Inhibit error print out 

SW le Set: Inhibit type out/abell on error. 

SW 11 Set: Inhibit ileresions. (quick pass) 

SW 10 Set: Escape to next test on error 

SW O39 Set: Loop with current data 

SW O8 Set: Catch error and loop on it 

SW O7 Set: Use previous status table. 

SW O06 Set: Halt in ROMCLK routine before clocking 

micro-processor 

SW OS Set: Reserved 

SW OY Set: Reserved 

SW 03 Set: Reselect DMC11’s desired active 

SW Oe Set: Lock on selected test 

SW Ol Set: Restart program at selected test 

SW OO Set: Build new status table from questions. (‘If SWO7= 
and SWOO=0 a new status table is buiit by 


auto-sizing) 


Switch O& and O8-15 are dynamic and can be pronase as needed 

while the diagnostic 1s running. Switches OO-O3 and switch O07 

we state, and are used cniy cn starting cr restarting the 
bagnostic. 
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SWITCH REGISTER OPTIONS (at start up) 


RESTART PROGRAM AT SELECTED TEST. It is strongly 
suggested that at least one pass has been made before 
trying to select a test, the reason being is that the 
prceres has to clear areas and set up parameters, 
hen this switch is used the diagnostic will ask TEST 
NO.? Answer by typing the number of the test desired 
pod sarvige return to Begin execution at the selected 
est. 


LOCK ON SELECTED TEST. This switch when used with 
SWOl will cause the program to constantly loop on the 
selected test. Hitting any key on the Console will 
let it advance to the next test and loop until a key 
is hit again. If SWO2=0 when SWOl is used. The 
program will begin at the selected test and continue 
normal operations. 


RESELECT DMC1!’S DESIRED ACTIVE. Please note that a 
message is typed out for setting the switch register 
equal to DMC11’s active. this means if the system has 
four DMClis; bits ,02,03 will be set in loc 
‘DMACTV’ from the switch register. Using this 
switch(SWOO) alters that location; therefore if four 
OMClis are in the system ###D0 NOtee# set switchs 
greater than SW 03 in the up position. this would be 
a fatal error. do not select more active OMCl1s than 
there is information on in the status table. 


A: Load address 200 

B: Start with SW O0=1 

Cs Program will type message 

D Set'a switch Yor each OMC desired active. 
EXAMPLE: If you have 4 DMC*s but only want tc 
run the first and the last set SWR bits O and 


3 = 1. PRESS CONTINUE 
E: Number (IF VALID) will be in data lights 
. (excluding 11/05) 


et with any other switch settings desired. 
PRESS CONTINUE. 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


SW 12 Delete print out/bell on error. 
SW 13 Delete error printout. 

SW i Halt on the error. 

Sw Goto sagreetee of the test(on error). 
. SW 10 Goto next test 


SCOPE SWITCHES | 


1. SWO6 Halt in  ROMCLK routine before clocking 
micro-processor instruction. This allows the 
operator to scope a micro-processor instruction in 
the static state before it is clocked. Hit 
continue to resume running. 

2. SwWoS (if enabled by ’SCOP1’) on an error; If an *#" is 
a in front of the test no. lez. #*TEST NO. 

O ) SWOS is incorporated in that test and 
therefore SWOS is usually the best switch for the 
scape loop (SUl4=0, Suid=4, SWO9=1, SWO8=0). If 


infu 


on error). 


is not enabeled; and there is a HARD error 
(constant); Sw is best. (SWI4=1,0, SW10=0 
SWO9=0, SWOB=1). for intermittemt errors; SWi4=1 
will an test reguardless error or not 


of 
error. Wi4=1, SWI0=0, SWO9=0, SWO8=1,0) 
3. SwWll Inhibit interations. 
4. SW14 Loop on current test. 


STARTING ADDRESS 


Starting address is at 000200 there are no other starting 
addresses for the DMC11 diagnostics. (See Section 4.9) 


NOTE: If address OOOO42 is non-zero the program assumes it 


is under ACT11 or XXDP control and will act 
accordingly after all available DMC11*s are tested the 
program will return to *XXDP* or ‘ACT-11". 


OPERATING PROCEDURE 
When program is initially started messages as described in 


section 4.0 will be printed, and program will begin running 
the diagnostic 
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PROGRAM AND/’OR OPERATOR ACTION 
The typical approach should be 


- Halt on error (via SW 15=1) when ever an error occurs. 
2. Clear SW 15S. 

3. Set SW 14: (loop on this test) 

4 Set SW 13: (inhibit error print out) 


The TEST NUMBER and PC will be typed out and possibily an 
error message (this depends on the test) to five the operator 
an idea as to the source of the problem. I[f it is necessar 
to know more information concerning the error report; LOOK I 
THE LISTING for that TEST NUMBER which was typed out and_ then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN BE DETERMINED. 


ERRORS 


As described previously there will always be a TEST NUMBER and 

PC typed out at the time of an error (providing SW 13=0 and SW 

le=0). in most cases additional information will be supplied 

i. the the error message to give the operator an indication of 
@ error. 


ERROR RECOVERY 


If for some reason the ODMC11 should “HANG THE BUS’ (gain 
control of bus so that console manual functions are inhibited) 
an init or power down/up is necessary for cperator to regain 
control cf cpu. If this should bogpes: look in location 
*TSTNO’ (address 1226)for the number o the test that was 
running at the time of the catastrophic error. In this way 
the operator will have an idea as to what the DMC11 was doing 
at the time of the error. 


RESTRICTIONS 
STARTING RESTRICTIONS 


See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also it 1s important to use this sta along with 
the information printed on the TTY to completly isolate 


protlems. 
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OPERATING RESTRICTIONS 
The first tie DMC11 diagnostic }3 loaded into core and run 
hi ] t 
thon FOS GUE rath Be elation hate *SMBBEaNY MARE LTRS 
however the status table need not be setup by subsequent 
r gtacts r even loadin — next DMC diagnostic Because the 
St TUS TABLE is over faye ° he current parameters in the 
STATUS TABLE are used when SWO7=1 on start up. 
HARDWARE CONFIGURATION RESTRICTIONS 


DMC11(MB200)- Jumper W1 must be in, and switch 7 of E76 must 
be in the OFF position. 


KMC(MB204)- Jumper Wl must be in. 


LINE UNIT(M8201)- Jumpers Wi, We, and WY must be IN. Jumpers 
on ne WS must be OUT.’ SWE of E26 must be in the ON 
position. 


LINE UNIT (M8202)- Jumper Wl must be in. SWS of Ec& must be 
in the OFF position. 


MISCELLANEOUS 
EXECUTION TIME 


All DMC11 device diagnostics will give an "END PASS’ message 
ehh soi no errors and swile=0) within Ymins. This is 
oscunine 1l=1 (DELETE ITERATIONS) is set to give the fastest 
possiblé execution. The actual execution time depends greatly 
on ume PDP11 CPU configuration and the amount of memory in the 
system. 


PASS COMPLETE 


NOTE: EVERY time the program is started; the 
as if SW11 (delete iterations) was up ( 
VERIFY NO HARD ERRORS’ as soon as_ possible. 

first pass -EACH TIME PROGRAM IS STARTED- will be a ‘QUICK 

PASS’ until all DMC11’s in system are tested. When the 
diagnostic has completed a pass the following 1s an example of 
the print out to be expected. 


END PASS DZDMC CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: The pass count and error counts are cummulitive for 
each DMC11 that is running, and are set to zero only 
when the diagnostic is started. Therefore after an 
overnight run for example, the total passes and errors 
for each DMC11 since the Jagnogtic was started are 
reflected in PASSES: and ERRORS:. 


tests will run 
=1). This is to 
Therefore the 
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KEY LOCATIONS 


RETURN (1214) epetetes ¢ he address where prog ram will return 
eration count is red hdd or if loop on 
test is Seser ies. 


NEXT (1216) Contains the address of the next test to be 
peformed. 


TSTNO (1226) Contains the number of the test now being 
peformed. 


RUN (1316) The ~— in por always points to the OMC11 
in tested. EXAMPLE: (RUN) 
{308/B00H000001080000 Heans that DMEI1 nook 

is the DMC11 now running. 


DMCROO-DMCR17 

OMSTOO-DMST17 

(1500)-( 1640) 
These locations contain the information needed 
to test up to 16 (decimal) or sequentiel 
they contain the Os 
concerning the configuration — each DMC11. 


DMACTY (1306) Each bit set in this rie indicates that 
the pgseci ates DMC11 will be tested in turn. 


EXANPLE: (DMACTY) {e7e7dogon6oo6eo! 111 means 


that DMC11 no. 00,01,02,03,04 will be tested. 
EXAMPLE: (DMACTV) 1246 7000000000010001 Means 
that DMC11 no. 00,04 will be tested. 


DMCSR (1402) Feateias the CSR of the current OMC11 under 
est. 


"STATUS TABLE’ (1500-1640) 


The table is filled by AUTO SIZING or by the veneol parameter 
input tqpeet ions: as described previous} lso if desired b 
user; locations may be altered by hing (toggled in) t 
suit the specific configuration. 


The oponeie.! states . ate shown below contains information for 
two able can contain up to 16 ODMC11°S. 
Following the come is a description of the bits for each map 
entry 


MAP OF DMC11 STATUS 


PC CSR STATL STAT2 STATI 


001500 160010 145310 177777 900000 
001510 1600e0 016320 900000 000000 
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Each —_ entry contains 4% words which contain the status 
information Tor 1 DMC11. The PC shows where in core memor 

the first of the 4 words is. In the example above the firs 

DMC’S status is in locations, 1500, 1502, 1504, and 1506. The 
second DMC status is located at 1510, 1S5!2, 1514, and 1516. 

tof information contained in each 4 word entry is defined as 
ollows: 


CSR: Contains DMC11 CSR address 


STAT1: BITS 00-08 IS DMC11 VECTOR ADDRESS 
T15=1 A paoceecon HAS CRAM 


BR PRIORITY LEVEL 


Cc 
TCH PAC#1 (DOCMP LINE NUMBER) 
ITCH PAC#e (BM873 BOOT ADD) 


E RUNNING TESTS ON KNC11 
“AR (LOW SPEED) 
AL (HIGH SPEED) 


STATe: 


STAT3: 


OoDmm FF wowowwwwow 
Laie ed ee el el 
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METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 


The auto-sizing routine finds a DMC11 as follows: It starts 
at address 160800 and tests al] address in increments of 10 up 
to and including address 16 f the address does not time 
out, the poi jontan is done, the first CROM address is written 
to a 125252 then it is read back. If it contains a <-1 or 
125252 or 626 or 16520 a DMC11 has been found, if not, the 
address is updated by 10 and the search continues. A - 
indicates a DMC11 with no CROM or CRAM, a leSeSe indicates a 
KMC11 with CRAM, a 626 indicates a DMC1I-AL and a 16520 
indicates a DMCII-AR. Further tests are performed at this 
penae to determine which line unit, if any, is installed, if a 
oop-back connector is installed and various switch settings 
on the line unit. TH IS WHY THE STATUS TABLE 
VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
THE QUESTIONS MUST BE ANSWERED. All DMC11’s in the onsien 
will be found by the auto-sizer. If it does not find a DMCI1 
the diagnostic must be restarted and the questions answered. 


FINDING THE VECTOR AND BR LEVEL 


The vector area (address 300-776) is filled. with the 
instruction IOT and ’.+2’ (next address). The processor 
status is started at 7 and the DMC ie proms canes to interrupt. 
The PS is lowered by 1 until the iBierrug ts. A sean is 
made and if no interupt occures at PS level 39 (because of a 
bad DMC11) the program assumes vector address 300 at BR level 
S and the problem should be fixed in the diagnostic. Once the 
problem is fixed; the program should be re-setip again to get 
correct vector. If an interupt occured; the address to which 
the DMC11 interupted to is picked up and reported as the 
vector. TE: if the vector reported is not the vector set 
up by you; there is a problem and AUTO SIZING should not be 
one. 


SOFTWARE SWITCH REGISTER 


If the diagnostic is run on an 11/04 or other CPU without a 
switch register then a software switch register is used to 
allow user the same switch options as described previously. 
If the hardware switch register does not exist or if one does 
and it contains all ones (177777) this software switch 
register is used. 


Control: 


To obtain control at any allowable time during execution of 
the diagnostic the operator types a CTRL a on the console 
terminal keyboard. As soon as the CTRL G is recognized, by 
the diagnostic, the following message wil] be displayed: 


PAGE: 


0012 


NOL 


Page 13 


=XXXXXX NEW? 


Where XXXXXX is the current contents of the software switch 
register in octal. The software contro] routine will then 
await operator action. At which time the operator is required 
to type one or more of the legal characters: 1) 0-7, 
line teed <LF>), 3) carriage return(<CR>), or 4) control-U 
(CTRL U). No check is made for legality. If the input 
character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 


To change the contents of the SSR the operator preety ree 
the new desired value in octal - seoeios zeros need not be 
typed. And terminates the input string with a <CR> or <LF> 
dépending on the program action desired as described below. 
The input value will be truncated to the last & digits typed. 
At least one digit must be typed on any given input string 
prior to the terminator before a change to the SSR will occur. 


When the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR. The <LF> differs Trom 
the <CR> by restarting the program as if it were restarted at 
address 200. 


“If a CTRL U is typed at ony point in the input string prior to 
the terminator the nee value will be disregarded and the 
prompt displayed (SWR = XXXXXX NEW?). 


To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G, then start the diagnostic. 
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SEERERREREERERRSEEREEREREE TEST | RRREEREEEERRSEE SEES EERE ESSE 
OUT CONTROL REGISTER READ/ONLY TEST 

DO A TER CLEAR, VERIFY iy ALL READ/ONLY 

BITS ARC IN THE CORRECT STATE 

SERERERRRSSERERRREREESEEEE TEST Te RRERRLEREESESESARARALL LASSE 
IN CONTROL REGISTER READ/ONLY TEST 

DO A MASTER CLEAR, VERIFY iy ALL READ/ONLY 

BITS ARE IN THE CORRECT STATE 


ERSYEERSKEEKARELKERRERSELEE TEST 3 SHARKS SSHEASRLSAASELA SLE REE 
MODEM CONTROL REGISTER READ/ONLY TEST 

DO A MASTER CLEAR T ALL READ/ONLY 

BITS ARE IN THE Rornecr CATE 


SELERERESSRRERREERREEEESES TEST 4 SeRRRSRRRSSSRLEL ELAR ERLE EES 
MAIN NTE REGISTER READ/ONLY TEST 

DO A MASTER CLEAR, VERIFY ne ALL READ/ONLY 

BITS ARE IN THE CORRECT STATE 


SEELRRALESREERERERSESREEERER TEST S See eek RRR RRR A ERASER SLER 
LINE UNIT REGISTER WRITE/READ TEST 

SET BITS IN LU REGISTER le, VERIFY IT IS SET 

CLEAR BITS IN LU REGISTER le, VERIFY IT IS CLEAR 


SESELRERSRREREREREEREEESRES TEST & SERRE RRAREARA SERS SAL SRLS ERE 


ER AD_TEST 
SET BIT1 IN LU REGISTER 17, VERIFY IT IS SET 
CLEAR BIT1 IN LU REGISTER 17, VERIFY IT IS CLEAR 


SELELLESERGSERERERESREEESE TEST 7 SeeRRRERERRAELLLE ERAS AAR AER 
LINE UNIT estes WRITE/READ TEST 

FLOAT A 1 THROUGH LINE UNIT REGISTER 13 

FLOAT A O THROUGH LINE UNIT REGISTER 13 


SEERSRSRREREESRERHEEREEEES TEST 10 2eRRERERERELAERALA RARE AEE TS 
,ire ry oe SISTER WRITE READ TEST 

FLOAT HROUGH LINE UNIT REGISTER 14 
FLOAT A THROUGH LINE UNIT REGISTER 14 


SELREERESELRRRRREREREEEEES TEST 1] SHRRERRRRERRAAA SAREE RESETS 
SWITCH PAC TEST 

THIS TEST READS SWITCH 

THIS SWITCH PAC SHE TEINS” cae DDOCMP LINE #8 
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2117 


2174 


2225 
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Max TEST 12 RHRRHRERAEREAELEA SEES ELE SES 


SWITCH PAC TES 

THIS TEST READS SWITCH PACS2 

THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD 
LELKHESERELSEERERERRREREEE TEST 13 Ree RERRSR RRR EREE REESE EES 


LINE UNIT CLOCK TE 
THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 
(BIT 1 IN LU-17) IS WORKING 


peenpereteestereqenaeaans TEST 14 HHRRERRRRRAEREAELASEE REEL EE 

OUT DATA SILO TES 

SET SOM AND LOAD OUT DATA SILO 

VERIFY THAT OCOR SET, INDICATING THAT THE 

CHARACTER IS AT THE BOTTOM OF THE OUT SILO 

EELLARARRERERRSERRRERHEEE TEST 15 cee eee eee ee eee eee eee ees ede 

DDOCMP TEST OF RTS AND 

SET SOM AND L OUT DATA SILO 

SINGLE STEP 5 DATA CLOCKS, VERIFY 

THAT RTS AND ACTIVE ARE SET 

SEREAASHELAEERERERRERHEEEE TEST 16 Seek e eee eeRE LEE SAS HERES SES 

TEST OF OUT CL 

SET SOM AND LOAD OUT DATA SILO 

SINGLE STEP baTA CLOCK, SET OUT CLEAR 

VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED 

ELLE SELERERRERARRKESHRSRKES TEST 17 2k RSRRREREERERARAL ERLE REESE 
TRANSMITTER TEST 

SINGLE CLOCK THE CHARACTER 0 

VERIFY EACH ert POSITION AS IT 

oe THE BIT WINDOW (SI BIT) 

ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


SLLALLASRERARSRRRERRHRERES TEST OD eee e ee eee eee eee e eee enesas 


DECDOC VER 00.04 


(SI_BIT) 
AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


SELELRLHRLERELEERERERERESE TEST O] 2x x eek RR FEESEE ESSERE E EERE SE 
DDCMP TRANSMITTER T 
SINGLE CLOCK THE CHARACTER 252 


VERIFY EACH eit rahe AS IT 
PASSES THE BIT WINDOW BIT) 
ON AN ERROR, R3 CONTAINE BIT POSITION OF FAILURE 


L1-JUL-77 11:$3 
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ELSRRERERESRERERERERERESEE TEST CO SHkERRERAEARAREAA SELLERS EEE 
MP TRANSM 


ITTER TEST 
SINGLE CLOCK THE CHARACTER 377 
VERIFY EACH BIT POSITION AS IT 
soy THE BIT WINDOW (SI BIT 
AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


Gone TRanenitTeR fest TEST Oo REHHEEREREEEAAL ERLE ELE SES ED 


ddC 
SINGLE CLOCK A BINARY COUNT PATTERN 
VERIFY ces He ait aul Mh IT 


SEESREREERRRRRRRRAESSSEEES TEST 24 2ERERERER ERASER EEEAL ESL L ESE 
ae STRIP SYNC TEST 

SET LOOP, SINGLE STEP S SYNCS 

VERIFY THAT’ IN ACTIVE DOES NOT SET 


SEEERERESERRSEREREEEEEREES TEST OS 2RRRRRRSRR EASE ELL ALLELE SEES 
oe IN ACTIVE TEST 

SET LU LOOP, SINGLE STEP S SYNCS AND A NON-SYNC (301) 

VERIFY THAT IN ACTIVE IS SET 


SEEERRERRRERSEREREEERERESES TEST Ob SXRERRERAAERR EERE RESELL LT AE 
ee IN ACTIVE TEST 

SET LU LOOP, SINGLE STEP 1 SYNC_AND A NON-SYNC (301) 

VERIFY THAT IN ACTIVE DOES NOT SET 


EESEELRRELREREEEREREREERES TEST O7 2RREEREESEESELE LALLA RELATES 
DDOCMP my ACTIVE TEST 

SET LU LOOP, SINGLE STEP 2 SYNCS AND A NON-SYNC (301) 

VERIFY THAT IN ACTIVE IS SET 


ate eee TEST JD RHRRAHARHARASLAAALA RL ARAF EE 
SYNC UP RECEIVER AND TRANSMIT A CHARACTER 

WAIT FOR IN RDY, THEN SET IN CLEAR 

VERIFY THAT 'N ACTIVE AND IN RDY ARE CLEARED 


SELLELLESRERERSHRRREREASES TEST 3] eee e ee RRR REEEELARAAAARELE 
DOCMP BASIC RECEICER TES 
SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 

VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


pocusuecocguccnsvossteaay TEST Jo ReRREEEEESEREEAAEEE RATE RITE 
DODCMP BASIC snk ea 

SYNC UP RECEI IND CFRGLE CLOCK THE CHARACTER 125 

VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
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OZDME 


LS’ 


2674 


2711 


2787 


2831 


2876 


2924 


2967 


3042 
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SRSSSSSSSESESSRSESEREEREEE TEST 33 Seeeeeeseeseedeee ee eeeeeees 


DOCMP BASIC RECEICER TEST . ie . 

SENTEY THT IN ROY 1S SE TC AND THAT THE CHARACTER HAS RECEIVED 

SERSESSESSSSESRREEEAEEEESE TEST 34 SeSSSSEERERRE REESE EEE E EES 
BASIC RECEICER TEST 


DOCMP 
SYNC_UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377 
VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


Se TEST JS Skeeeeeeeeeeeeeeeeseeeeeeet 


DOCMP DATA TEST 
THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
CHECKING EACH CHARACTER AS IT IS RECEIVED 


soe bata Test TEST 3G SHRREEREREEESER ARES ESTE SESE 
INARY COUNT PATTERN 


CHE RS 
THIS TEST is EXACTLY THE SAME AS THE LAST TEST, 
EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12’ 


SELRERSRSSRESERERERERSEREE TEST 37 Seek eee k eee S ES ERAS ELSE LE 
TRANSMITTER MARK TES 
SINGLE CLOCK 3 SYNCS AND A ct iy 20 EXT 
CLOCK TICKS, VERIFY THAT A 301, A 377 AND RO 377 
WERE RECEIVED INDICATING THAT due TRANSMITTER WENT 
TO A MARK STATE FOR 16 BITS WHEN OUT SILO WAS EMPTY 


SEPRRRELRRRRERRREREAEREEES TEST 4D eRSEEREREREREAA SEALE SESE EF 


CABLE T 
CLEAR LINE UNIT LOOP, SET DTR 

VERIFY 1 MODEM READY Y IS SET 

CLEAR OTR VERIFY THAT MRDY IS CLEARED 


ean eee TEST 4] 4ERERHRERARSS RRR EEEEEELES ES 


SPEAR R LINE Ne Unt wo LOOP LOAD OUT DATA SILO 
VERIFY THAT ALL MODEM SIGNALS ARE SET 


at i ae TEST 4S HXRRESEEREEEERARESESRAL ESTE 
TEST OF CRC OPERATION 
i... 7 CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
VERIFY THE LSB OF THE BCC ON EACH SHIFT 
fest TRANSMITTER FIRST THEN THE RECEIVER Bcc 


eee TEST YS HERRHHEARARALES EAR EREREAARE 
USING THE ah POLYNOMIAL, SINGLE CLOCK Te CHARACTER 

377, VERIFY THE LSB OF THE BCC ON EACH SHIFT 

TEST TRANSMITTER FIRST THEN THE RECEIVER SCC 
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g 


OZOME 


LST 


3267 


3333 


3399 


3500 


3887 


3803 
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REAPAARAAKHRASRARRERRRREER TEST 44 eee eee ee eee eee EE EE EEE SE 
TEST OF CRC OPERATION 


USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
126 RIFY T L358 OF THE BCC ON EACH SHIFT 
tT ITTER FIRST THEN THE RECEIVER BCC 


fest OF che orenatinne TEST YS RHRRRERHRREERERESEEE EE SEE EE 
eine ." By Ay: 
SINGLE CLOCK THE CHARACTER 


edt WOU THEst Path Thee Mee a! 


SHELRERSERARRERRREREERERES TEST YR RRR RR RRERE REE EEE EEE EE EEEE 
reer Ter CRC e dere 

USING THE CRCI16 YNOMINAL, SINGLE CLOCK A BINARY 

COUNT PATTERN, VERIFY THE LSe OF THE TRANSMITTER BCC ON EACH SHIFT 


SLLERALARRERALRELAAERRESSS TEST 47 Sake eeee REESE R EERE SEER E SE 
RECEIVER CRC TEST 

USING THE CRCI6 POL YNOMINAL , SINGLE CLOCK A BINAR 

COUNT PATTERN, VERIFY THE eS :) OF THE RECEIVER BCC ON EACH SHIFT 


RELERAERERAREREREREERERERE TEST SO RRR eRRRRRRRSE REESE EEE REESE 
TRANSMITTER DDCMP CRC TEST 

THIS fer TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC 

preon AND THE BCC ARE MERE TED IN THE BIT 


THE FOUR CHARACT 252, 377 
THE TRANSMITTER IS CHECKED FOR cotNe tO A’ MARK STATE AFTER THE SCC 


LEEREALERERALERHEALEREEEEL TEST OS] RRRReeRHRHAEREREERE EEE ESSE 
RECEIVER DDCMP * TEST 

THIS TEST CLOCKS A FOUR CHARACTER MESSAGE “> BCC 

AND VERIFYS CORRECT DATA RECEPTION AND BCC MATCH 

THE FOUR CHARACTER MESSAGE IS 0, 125,252,377 


HLERLARLARARSARHAERELRRERER TEST SO eee RRSRR SAREE SHEE EEE ER EEE 


DOCMP_EOM FUNCTION TEST 
THIS TEST LOADS OUT SILO g Hd c. SYNCS,4 CHAR MESSAGE, EOM 


ec a a ae 
HE GARTERS “LonbeD wisie OM SET 


ARE LOST 
BRE CHEERED IN THE BIT WINDOW 
THE POUR c CHARECT cc MESSAGE IS 0 252, 377 
RECEIVED DATA IS VERIFIED, AND OFA BCC MATCH IS CHECKED 


yoy TEST SO KeRHRERSRAR RARER EREE EE ESE 
THIS TEST LOADS OUT SILO WITH: 2 SYNCS.4 CHAR MESSAGE. EOM 
SOM,4 CHAR MESS.EOM. THE DATA STREAM 1S CHECKED TO BE 

4 CHER BCC.4 CHAR. BCC, MARKS. THIS TEST VERIF YS THAT 


THE C L 
ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BCC 
ALL DATA AND BCC’S ARE CHECKED IN THE BIT WINDOW 


0019 


OZONE 


LST 


4081 


4146 


4181 


4183 


4276 


HOe 


REEET veo ie Catt a Gi Ao th Bee A aatcn IS CHECKED 


SEERRRERRRRRERERSREREEEERE TEST SY PERERA RERERE SEER ESE SER ERASERS 
EMPTY SILO 


CHD UAE SSBB, SS SSR EAL A 


HAT ONLY THE FIRST 
: Taree TER Moresnce FS, Ne NCE TVED yn THAT RTS IS CLEAR 


RAF OUPLER TEST TEST SS HERRERERERSRSSSSSAELALAE EEE 
x 


HALF DUP ES 
SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A 
MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR 


Sage TEST SO HERRERA E EEE EE 
DDCMP CABLE DATA TEST 


THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 
4 SYNCS, 16 CHAR ,E0H, 16, CHAR, BOM, 16 nirone or 


L AND ZERO 
THE DATA IS TRANSMITTED OVER THE CABLE ot a THE INTERNAL CLOCK 


DECDOC VER 00.04% 11-JUL-77 11:52 AGE O07 FPRGE: 


SELEEREEERELEREREAEREREEEE TEST S7 Skee ReRRAEAERERAA SESE AE SALE 
DDCMP CABLE DATA TEST 
yg TEST LOADS OUT SILO WITH THE FOLLOWING: 

4 2YNCS59_ DATA CHeReE TERA Ot WITH GAR CHARACTER 

THE DATA IS TRANSMITTED OVE THE. C CABLE ust - THE INTERNAL CLOCK 
RECEIVED DATA IS VERIFIED AS IS IN BCC M 
LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS” TEST 


C020 


102 


DZDME MACY11 30(1046) LI-JUL-77 11:40 PAGE 2 PAGE: 
DZDME.P11  12-MAY-77 14:18 INTRODUCTION TO DMC11 DIAGNOSCTIC 
1 
2 
3 
u 
z s#MAINDEC-11-DZDME-8 _OMC11 DDCMP LINE UNIT TESTS 
: : COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
8 ; 
10 STARTING PROCEDURE 
ll LOAD aM 
12 ‘LOAD ADDRESS 000200 
13 :SWR=0 AUTOSIZE DMC11 
i4 :SWO7=1 USE CURRENT DMC11 PARAMETERS 
is :6WOO=1 INPUT NEW DMC11 PARAMETERS 
1é PRESS START 
17 : PROGRAM WILL TYPE oa cAINOE DEC” 11-DZDNE-B DMC11 DDOCMP LINE UNIT TEST 
18 ‘PROGRAM WILL TYPE STA 
i9 ‘PROGRAM WILL TYPE “R” i INDICATE THAT TESTING HAS STARTED 
20 AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
21 :AND THEN RESUME TESTING 
ee SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 
24 
2s 
2E 
e° :SHITCH REGISTER OPTIONS 
23 
00 WiS= 0 3=1,HALT RROR 
7 ileal cuts 3248600 51 HOKE SN EGRRENT TEST 
32 020000 3113220000 j=1, INHIBIT ERROR TYPEOUT 
33 0100900 SW12=10000 :=1; DELETE TYPEOUT/BELL ON ERROR. 
34 4000 SW11=40 :=1’ INHIBIT ITERA 
35 Sw10=2 =1ESCAPE TO ORT NEST oN ERROR 
36 001000 Swo9=1000 :=1’LOOP WITH CURRENT DAT 
37 00 Swog=400 =1'LOOP ON E 
000200 SwO7=200 t=1'USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC1! 
33 100 SWO6=100 :=1; HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 
46 000040 SwoS=40 
s] 900020 Swo4=20 
42 009010 SwO3=10 ;RESELECT DMC11"S TO BE TESTED (ACTIVE) 
43 090004 Swo2=4 LOCK K ON TEST SELECT 
a 90002 SwOl= iRESTAR PROGRAM AT SELECTED TEST 


45 ooooi SwOO=1 ; INPUT OMe ti PARAMETERS 
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177776 
001200 


oo0001 
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PAGE 3 
GENERAL DEFINATIONS AND EQUIVALENCIES 


JO0e2 


;REGISTER DEFINITIONS 


RO=%0 ;GENERAL REGISTER 
RAS GENERAL REGISTER 
R3=%3 GENERAL REGISTER 
Rex ;GENERAL REGISTER 

zy, iB SSOR A Stack POINTER 
Pea :P ROGRAR COUN 


PS=177776 ;PROCESSOR STATUS WORD 
STACK=1200 :START OF PROCESSOR STACK 


; INSTRUCTION DEFINITIONS 


PUSH1SP=S746 ;DECREMENT PROCESSOR STACK 1 WORD 


POP 1SP=S726 j INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO= 10046 pak 

POPRO=12600 fee STACK 

eee aseae REFENT T STACK Fuice 


OPeSP=22626 NCREMENT TWICE 
-EQUIV EMT,HLT ‘BASIC DEFINITION OF ERROR CALL 
;BIT DEFINITIONS 


PAGE: 
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001200 
00120¢ 


000200 
000137 
001000 
005377 

104 
001200 


177570 
177570 


Rs al -77 11:40 _ PAGE 4 
4:18 TRAPCATCHER FOR UNEXPECTED INTERUPTS 


KOe 


PAGE: 


5s RRAAERERERELESE SEE RELAL ASE ERAL LESS REAL LE LAR EREL ALLEL EREALAL SSAA ELLE SE 
‘ ;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
:THE STANDARD “TRAP CATCHER” Is PLACED 
EN ss 0 TO RODRESS 7 
‘IT LOOKS LIKE “PC+2 HALT” 


ee nena ame econeemmanrrsmmontaes en pam tapi 


.20 
;STANDARD INTERRUPT VECTORS 


.=24 
-PFAIL ;POWER FAIL HANDLER 
340 ; SERVICE AT LEVEL 7 
“HLT HANDLER 
540 ISERVICE AT LEVEL 
" TRPSRV :GENERAL HANDLER ofSPaTcH SERVICE 
le !SERVICE AT LEVEL 7 
gs 0 SAVE FOR ACT-11 OR XXDP 
0 ‘RETURN ADDRESS IF UNDER ACT-11 OR XxOF 
0 :SAVE FOR ACT-11 OR XXDP 
; SENDAD :FOR USE WITH ACT-11 OR XXDP 
: 0 SACT-11 PROGRAM CHARACTERISTICS 
.=174 
DISPREG:0 SOFTWARE DISPLAY REGISTER 
SWREG: 0 : SOFTWARE SWITCH REGISTER 
.=200 


JMP . START ;GO TO START OF PROGRAM 


.=1000 

MTITLE: .ASCI 12> /MAINDEC-11-DZDME-B/<377> 
-ASCI DDCMP LINE UNIT TESTS/<377> 

-=1200 

; INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 


DISPLAY: 177570 
SWR: 177570 


0023 


LO2 


DZ2DME MACYL1 30(1046) Ll-JUL-77 11:40 PAGE S PAGE: o024 
DZDME.P11 § 12-MAY-77 14:18 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 

144 

14s ; INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 

147 / 

148 001 1 TKCSR: 177560 ; TELETYPE KEYBOARD CONTROL REGISTER 

149 cares 1 TKDBR: 177562 * TELETYPE KEYBOARD DATA BUFFER 

150 001210 177564 TPCSR: 177564 :TELEPRINTER CONTROL REGISTER 

18 O0l212 177566 TPDBR: 177566 :TELEPRINTER DATA BUFFER 

153 ;PROGRAM CONTROL PARAMETERS 

15S . 

156 001214 o00000 RETURN: 0 ;SCOPE ADDRESS FOR LOOP 

157 001216 o00000 XT: 0 : SS OF NEXT TEST TO BE EXECUTED 

158 001220 o00000 0 “ADDRESS FOR LOCK ON N 

159 O0l222 000003 ICOUNT: 3 “NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE 

160 001224 900000 LPCNT: O “NUMBER OF ITEREATIONS COMPLETED 

161 001226 000900 0 ‘NUMBER OF TES PROGRES 

162 001230 oo0000 PASCNT: 0 ; OF PASSES COMPLETED 

163 001232 o00000 ERRCNT: 0 “TOTAL NUMBER OF ERRORS 

164 001234 LSTERR: 0 :PC OF LAST ERROR CALL 

166 ;PROGRAM VARIABLES 

168 ‘ 

169 001236 o00000 STRTSW: O ;SWITCHES AT START OF PROGRAM 

170 001240 oo0000 STA 0 :DM STATUS WORD STORAGE 

171 O01e42 o00000 CLKx: 0 

172 001244 000000 MASKX: 0 

173 0012% 000000 TEMP1: © ; TEMPORARY STORAGE 

174 001250 o00000 0 : TEMPORARY STORAGE 

175 001252 900000 TEMP3: O : Y ST 

176 001254 900000 TEMPY: 0 * TEMPORARY STORAGE 

177 001256 o00000 TE 0 : TEMPORARY STOR 

178 001260 oo0000 SAVRO: O *RO STORAGE 

179 OO0le62 o00000 SAVRI: O *R1 STORAGE 

180 001264 SAVRe: 0 *R2 STORAGE 

181 001266 SAVR3: O ?R3 STORAGE 

182 001270 oo0000 SAVRY: 0 :R4 STORAGE 

183 001272 00 SAVRS: 0 RS STORAGE 

184 001274 oo0000 SAVSP: 0 “STACK POINTER STORAGE 

185 001276 00 Savec: 0 :PROGRAM COUNTER STORAGE 

186 001300 o00000 ZERO: 0 

187 001302 1 ONE : 1 

188 001304 o00000 MEMLIM: 0 sHIGHEST LOCATION FOR NPR’S 

189 001306 000001 DMACTY: .BLKW 1 *DMC11°S SELECTED ACTIVE. 

190 001319 0001 DOMNUM: .BLKW 1 ‘OCTAL NUMBER OF DMC11°S. 

191 00131 001 SAVACT: :BLKW 1 :ORIGINAL BCTV” guev ICES 

192 001314 o00001 SAVNUM: .BLKW 1 ;HORKABLE NUNES 

133 001316 000000 RUN: 0 ‘POINTER TO HO ARING DEVICE. 

195 001320 001472 CREAM: DM.MAP-6 : TABLE POINTER. 

196 001322 001676 MILK: ¢NT.MAP-4 ‘TABLE POINTER 


--—- - -_—<« oo ee ee nem eee eee + a we eee 
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DZDME 
CZDME.P 12-MAY-77 14:18 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
1 
135 a CONTROL FLAGS 
i © eee 
Y AM INITIALIZATION FLAG 
Sas Bptssd § = BRE must: ‘BYTE B ERROR g GctURED FLAC 
203 001326 000 LOKFLG: .BYTE ON CURRENT TEST FLAG 
204 001327 000 QV.FLG: . BYTE 5 sLOCK VERIFY 
205 [ON FIRST PASS OF EACH DMC11 ITERATIONS WILL BE 
206 EVEN 
208 ;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
209 :POINTERS TO SUBROUTINES CAN BE FOUND 
g10 *IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 
§ is 3 SKLALAALARAAAAAAL SAAR SLA RAE EA ELA AAAAARALAAE REA LRAE AERA RASAAREL ELE SLES 
24 001330 ’ TRPTAB: 
215 04400 SCOPE=TRAP+ ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
216 001330 003576 . SCOPE 
217 104401 SCOP1=TRAP+1 ;CALL TO LOOP ON CURRENT DATA HANDLER 
at — ree TYPE=TRAP "py CALL TO TELETYPE OUTPUT ROUTINE 
= + . 
533 001334 AB a3pe TY 
221 104403 INSTR=TRAP+3 ;CALL TO ASCII STRING INPUT ROUTINE 
222 001336 o040S50 . INSTR 
223 104404 INSTER=TRAP+4 ;CALL TO INPUT ERROR HANDLER 
224 001340 004154 : R 
225 104405 PARAM=TRAP+5 ;CALL TO NUMERICAL DATA INPUT ROUTINE 
226 O01342 004174 Pf 
227 104406 SAVOS=TRAP+6 ;CALL TO REGISTER SAVE ROUTINE 
228 001344 004374 : 
229 104407 RESOS=TRAP+7 ;CALL TO REGISTER RESTORE ROUTINE 
230 00134 004434 é 
231 104410 CONVRT=TRAP+10 :CALL TO DATA OUTPUT ROUTINE 
232 001350 Oo4466 . CONVR 
233 104411 CNVRT=TRAP+1 1 ;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
234 001352 004472 : 
235 104412 MSTCLR=TRAP+12 ;CALL TO ISUE A MASTER CLEAR 
53 onbat ee DELAY=TRAP 15 CALL TO DELAY 
238 001356 005436 DELAY ; 
239 104414 ROMCLK=TRAP +14 / ;CALL TO CLOCK ROM ONCE 
cap meen ena DATACLK= TRAP is CALL TO CLK DATA 
= + : 
242 001362 opsss2 LK 
243 104416 TINERETRAPSLE ;CALL TO DELAY A CLOCK TICK 
244 001364 O0S616 . TIMER 
24S 
rt et Sie ak eae mT asta a, ea ae a tach adnan ania aetlpiacnieniaecialaiiceilbibides 


247 Werrtiriiiiiiittitiittttirtitittirtrtittittritititititttittt titi r ety: 
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DZDME.P11  12-MAY-77 14:18 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
aug ;DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 
250 . 
251 001366 000000 STATI: O 
2S2 001370 000000 State: Oo 
e533 001372 900000 Stat3: O 
gee ;DMC11 VECTOR AND REGISTER INDIRECT POINTERS 
257 ‘ 
258 DMRVEC: 0 sPOINTER TO DMCIL RECEIVER INTERRUPT VECTOR 
259 DMRLVL: O ‘POINTER TO OMC11 RECEIVER INTERRUPT SERVICE PS 
st Bint! 8 POINTER 10 Batt eesent Tien INTE Seve s 
sph BICSR : INE 8 Bred CONTROL STATUS REG CTER 
DMCSRH: 0 POINTER TO DMC11 CONTROL STATUS REGISTER HIGH BYTE. 
DMCTL: 0 ‘POINTER TO DMC11 CONTOL OUT REGISTER 
DMPOY: O INTER TO DMC11 PORT REGISTER(SEL 4) 
OMP 0 POINTER TO DMC11 PORT REGISTER(SEL 6) 





; TEMP STORAGE 


RP RNR at dt 


001416 000000 TEMP 0 
001460 =. +40 
;DMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 
276 
277 001500 .=1500 
278 001500 OM. 
279 001500 o00001 DMCROO: .BLKW 1 sCONTROL STATUS REGISTER FOR DMC11 NUMSER 00 
280 001502 000001 DMS100: .BLKW 1 ; VEC FOR DMC11 NUMBER 0 
28i 001504 9Q00001 DMS2 BLKW ol sDDCMP LINE® FOR DOMC11 NUMBER OO 
see 001506 000001 DMS300: .BLKW 1 ;3RD STATUS WORD 
284 001510 000001 DMCRO BLKW 1 ‘Conte STATUS Restorer FOR DMC11 NUMBER 01 
28S 0015l2 1 DMS1O1: .BLKW 1 TOR FOR DMC11 
286 001514 000001 DMS201: .BLKW 1 SDDCMP Linge FOR OMC11 NUMBER 01 
seo 001516 000001 DMS301: .BLKW 1 : SRD STATUS WORD 
2839 001520 000001 , DMCRO BLKW 1 ; CONTROL STATUS REGISTER FOR DMC11 NUMBER C2 
2390 001522 000001 DMS10e: .BLKW 1 OR FOR 11 NUMBER 
231 001524 1 DMS202 KW 1 t DDCMP LINE® FOR DMC11 NUMBER Oe 
33 001526 O00001 DMS30e: .BLKW 1 : RD STATUS WORD 
2% 001530 0o0000 DMCRO3: KW 1 ;CONTROL STATUS pyetls FOR DMC11 NUMBER 03 
23S 00153e 00000 DMS103: .BLKW 1 ;VECTOR FOR DMC11 NUM 
2% 001534 00000! DMS203: .BLKW 1 ;DDCMP_LINE® FOR DMC11 NUMBER 03 
34 001536 00000 DMS303: .BLKW 1 :3RD STATUS WORD 
299 001540 000001 DMCRO4Y: .BLKW 1 ; CONTROL STATUS REGISTER FOR DMC11 NUMBER 04 
300 001542 Oo00001 DMS104: .BLKW 1 *VECTOR FOR DMC11 N R OY 
301 O01544 Oat DMS204: .BLKW 1 : DDCMP LINE® FOR DOMC11 NUMBER 04 
aS 001546 O00001 DMS304: .BLKW 1 : RD STATUS WORD 


BO3 


wwe 


MACY11 30( 1046) 11-JUL- -77 11:40 PAGE 8 PAGE: 0027 
Pil 4 te 14! PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
901550 000001 DMCROS: .BLKW 1 CONTROL STATUS REGISTER FOR OMC11 NUMBER 0S 
Bless Geet Pe: | Bene nea Pk TT RGR 
090001 OMS305: .BLKW 1 : 3RD tite WORD 
001560 000001 DMCRO6: .BLKW 1 ; CONTROL STATUS REGISTER FOR DMC11 NUMBER 06 
310 000001 DMS106: :BLKW 1 VECTOR FOR DMC11 NUMBER 06 
311 OO1564 O0d001 OMS206: .BLKW 1 ‘DDCMP LINE® FOR DMC11 NUMBER 06 
aig 001566 000001 OMS306: .BLKW 1 :3RD STATUS WORD 
314% 001570 o00001 DMCRO7: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 07 
315 001572 OO0001 DMS107: .BLKW 1 ‘VECTOR FOR DMC11 NUMBER 07 
316 001574 o0N001 DMS207: :BLKW 1 :DDCMP LINE® FOR DMC11 NUMBER 07 
317 001 000001 DMS307: .BLKW 1 :3RO STATUS WORD 
319 001600 000001 DMCRIO: .BLKW 1 CONTROL STATUS REGISTER FOR OMC11 NUMBER 10 
320 001602 000001 DMS110: .BLKW 1 VECTOR FOR DMC11 NUMBER 10 
321 01604 O00001 OMS210: .BLKW 1 “DDCMP LINES FOR DMC11 NUMBER 10 
322 001606 000001 DMS310: .BLKW 1 :3RD STATUS WORD 
324 001610 000001 DMCRI1: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 11 
32S 001612 000001 OMS111: .BLKW 1 ;VECTOR FOR DMC11 NUMBER 11 
326 O01614 OO0001 DMS2ll: .BLKW 1 MP LINE® FOR DMC11 NUMBER 11 
327 001616 O00001 OMS311: .BLKW 1 :3RD STATUS WORD 
329 001620 o00001 OMCR12: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 12 
330 001622 O00001 OMS112: .BLKW 1 VECTOR FOR DMC11 NUMBER le 
331 001624 000001 DMSele: .BLKW 1 :DDCMP LINE® FOR DMC11 NUMBER i2 
33 001626 0000! OMS3le: .BLKW 1 :3RO STATUS WORD 
334 001630 oo0001 DHCRI13: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMCL1 NUMBER 13 
33S 001632 00000! OMS113: .BLKW 1 TOR FOR DMC11 NUMBER 1 
336 001634 900001 biel 3: "BLKW 'DDCMP LINE® FOR DMC11 NUMBER 13 
337 001636 00000: DMS313: .BLKW 1 :3RO STATUS WORD 
339 000001 OMCRI4: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 14 
340 001642 O0000! DMSI14: .BiKW 1 ‘VECTOR FOR DMC11 NUMBER 14 
341 OO1644 O00001 OMS214: .BLKW 1 :DDCMP LINE® FOR DMC11 NUMBER 14 
se 001646 000001 DMS314: .BLKW 1 :3RO STATUS WORD 
344 001650 000001 DMCRIS: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 15 
345 001652 000001 OMS115: .BLKW 1 “VECTOR FOR DMC11 NUMBER 15 
346 001654 90000! 15: :BLKW 1 ‘DDCMP LINE® FOR OMC11 NUMBER 15 
317 001656 000001 DMS315: .BLKW  ! :3RD STATUS WORD 
349 001 000001 Rlb: .BLKW 1 CONTROL STATUS REGISTER FOR DMCil NUMBER 16 
350 001 000001 OMS116: .BLKW 1 VECTOR FOR DMC11 
351 001664 000001 DMS216: .BLKW 1 : DOCMP LINES FOR DMC11 NUMBER 16 
He 1 000001 316: .BLKW 1 :3RD STATUS WORD 
34 001670 000001 OMCR17: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMCL1 NUMBER 17 
355 001672 000001 OMS11 KW “VECTOR FOR DMC11 R17 
356 001674 OO000! OMS217: .BLKW 1 ‘DOCMP LINE® FOR DMC11 NUMBER 17 
44 00167& 900001 DMS317: .BLKW l : 3RD STATUS WORD 
33 001700 oo0000 OM.END: 900000 
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;DMC11 PASS COUNT AND ERROR COUNT TABLE 


PACTOL: 
ERCTO1L: 
PACTOe: 
ERCTOe: 
PACTO3: 
ERCTO3: 
PACTOY: 
ERCTO4: 
PACTOS: 
ERCTOS: 
PACTOB: 
ERCTOb: 
PACTO?: 
ERCTO?: 
PACTIO: 
ERCT1O: 

ACTLI: 
pact it: 


PACT 12: 
ERCTle: 


PACT13: 
ERCT13: 


PACT14: 
ERCT14: 


PACTIS: 
ERCTIS: 


PACTIE: 
ERCT16: 


PACT1?: 
ERCT17: 


oo 00 00 00 00 00 00 00 00 00 00 00 00 00 OO oo 


;PASS COUNT re DMC 1 00 
“ERROR COUNT FOR DMC11 NUMBER 00 


1 
1 
;PASS COUNT FOR DMC11 
ERROR COUNT FOR DMC11 
1 
1 
1 


;PASS COUNT FOR DMC1 
;ERROR COUNT FOR DMC11 NUMBER 


;PQSS COUNT FOR DMC1 
ERROR COUNT FOR DMC11 NUMBER 


;PASS COUNT FOR DMC11 NUMBER 
ERROR COUNT FOR DMC11 NUMBER O04 


;PASS COUNT FOR DMC11 NUMBER OS 
ERROR COUNT FOR DMC11 NUMBER OS 


;PASS COUNT FOR DMC11 NUMBER 06 
“ERROR COUNT FOR DMC11 NUMBER 06 


;PASS COUNT FOR DMC11 NUMBER 07 
ERROR COUNT FOR DMC11 NUMBER 07 


;PASS COUNT FOR DMC11 NUMBER 10 
;ERROR COUNT FOR DMC11 NUMBER 10 
;PASS COUNT FOR DMC11 NUMBER 11 
NUMBER 11 


:ERROR COUNT FOR DMC11 


;PASS COUNT FOR DNC1 
ERROR COUNT FOR DMC11 NUMBER 12 


;PASS COUNT FOR DMC11 NUMBER 13 
ERROR COUNT FOR DMC11 NUMBER 13 


1 
1 
} NUMBER le 
1 
1 
;PASS COUNT FOR wd NUMBER i4 
1 
1 
1 
1 
1 
1 


;ERROR COUNT FOR DMC11 NUMBER 14 


;PASS COUNT FOR DMC11 NUMBER 15 
:ERROR COUNT FOR DMC11 NUMBER 15 


;PASS COUNT FOR DMC11 NUMBER 16 
ERROR COUNT FOR DMC11 NUMBER 16 
Cll NUMBER 1 
MC 


;PASS COUNT FOR DM 
1 NUMBER {7 


ERROR COUNT FOR D 


PAGE: 0028 


DZDME ais 30( 1046) 


DZOME . P 
413 


12-MAY-77 1 


a -77 11:40 PAGE 10 
718 PROGRAM PARANE TERS, VARIABLES, AND TRAP CALLS. 


FORMAT OF STATUS TABLE 


16 14 13 12 11 10 O89 O8 O7 O& OS OY O3 Ce O1 00 


I I 
t fy FR OOS Ot ee Pe ee Oe oe ee a : CSR 


I I I 
: * B M oe ; ee ee Se ee es # : STAT2 


IlI#*IT#I STAT3 
Te Bie 


CSR: CONTAINS DMC11 CSR ADDRESS 


STAT1: BITS 00-08 IS OMC11 VECTOR — 
BIT1S=1 MICRO-PROCESSOR HAS CRAM 
BIT1S=0 MICRO-PROCESSOR HAS CRO 
BIT14=1 ??7? TURNAROUND CONNECTOR IS ON 
BIT14=0 NO TURNAROUND CONNECTOR 
BIT13=0 LINE UNIT IS Mg 
BIT13=1 LINE UNIT IS AN M8202 
BIT1e@=1 NO LINE UNIT 
BITS O9-i1 IS DOMCi11 BR PRIORITY LEVEL 
STAT2: LOW BYTE IS SWITCH (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PPR Re (BM873 BOOT ADD) 


STAT3: BITO=1 DO FREE RUNNING TESTS ON 


KMC 
(MUST BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLY!) 


KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 
peer TEST 2 FIRST 

BIT1=1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE 
IT1=0 DMC11-AR REMOTE LOW SPEED MICRO-CODE 


0023 


E03 
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DIDME.P11 12-MAY-77 14:18 PROGRAM INITIALIZATION AND START UP. 
468 
469 PROGRAM INITIALIZATION 
470 LOCK OUT INTERRUPTS 
47} “SET UP PROCESSOR STACK 
47 :SET UP POWER FAIL VECTOR 
473 :CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
pia :TYPE TITLE MESSAGE 
476 002002 012737 000340 17777 .START: MOV ;LOCK OUT INTERRUPTS 
477 002010 012706 001200 MOV aT STAeKe SP :SET UP STACK 
478 002014 012737 005336 000024 MOV #.PFAIL,a#e4 | :SET UP POWER FAIL VECTOR 
479 002022 013737 001310 001314 MOV DMNUM,SAVNUM © :SAVE NUMBER OF DEVICES IN SYSTEM. 
480 002030 005037 010016 CLR SWFLG ‘CLEAR SOFT TYPEQUT FLAG 
481 002034 105037 001325 CLRB = ERRFLG CLEAR ERROR FLAG 
482 002040 105037 001327 CLRB =s-« QV. FLG *ZERO QUICK VERIFY FLAG 
483 002044 012737 001470 MOV #0M.MAP-10,CREAM:GET MAP POINTER. 
484 0020S2 012737 001676 001322 MOV SCNT.MAP-4'MILK ;GET PASS COUNT MAP POINTER 
485 002060 012737 100000 001316 MOV #81T1S, RUN ‘POINT POINTER TO FIRST DEVICE. 
486 002066 O12700 001702 MOV CNT MAP, RO ; PASS COUNT POINTER TO RO 
487 002072 23$: CLR (RO)+ AR TABLE 
488 002074 022700 o02002 CMP #CNT.MAP+100,RO :DONE YET" 
489 002100 001374 BNE 23$ KEEP GOING 
489 002102 001234 CLR LSTERR ‘CLEAR LAST ERROR POINTER 
491 002106 012737 000001 001226 MOV #1, TSTNO :SET UP TEST 
432 092114 012737 001214 MOV #. START, RETURN sel Up FOR af OHER FAIL BEFORE 
494 002122 01374 000006 MOV 386, -(SP) ; SAVE CURRENT VECTORS 
495 002126 01374 OO0004 MOV ae4! -(SP) 
496 002132 012737 002166 oOD0004 MOV #6$. 084 SET uP FOR TIMEOUT 
497 002140 012737 177570 O0l202 MOV #177570, SWR SWR TO HARD SWR ADDRESS 
498 00214%% 012737 177570 001200 MOV 0177870 DISPLAY SET DISPLAY TO HARD SWR ADDRESS 
499 002154 022777 177777 177020 CMP 1, aSWR ; REFERENCE HARDWARE SWITCH REGISTER 
S00 002162 001402 BEG est ‘IF = -1 USE SOFT SWR ANYWAY 
501 002164 O00407 BR 7§ :IF IT EXISTS AND NOT = -1 USE HARD SUR 
502 O02166 Oeebeb $$: CMP (SP)+. (SP)+ ADJUST | STACK 
503 002170 012737 000176 001202 MOV #SWREG, SWR POINTER TO SOFT SWR 
504 002176 012737 000174 O01200 MOV sorsPnéc DISPLAY:POINTER TO SOFT DISPLAY REG 
50S 002204 012637 900004 7$: MOV (SP)+, 084 ;REST ORE VECTORS 
506 002210 012637 000006 MOV (SP) +" sec 
507 002214 105737 001324 TSTB —CINIFLG 'HAS INITIALIZATION BEEN PERFORMED 
S08 002220 001006 BNE 0$ :BR IF YES 
509 002222 022737 003522 oosD4e CMP #SENDAD, 3842 ;IF ACT-11 AUTOMATIC MODE, DON’T TYPE ID 
Si0 002230 001402 BEG 
511 O02232 104402 001000 TYPE MTITLE :TYPE TITLE NE SSAGE 
S12 002236 004737 007606 208: JSR Pc, CKSWR :CHECK FOR SOFT SWR 
£13 002242 017737 176734 001236 MOV aswR, STRTSW :STORE STARTING SWITCHES 
514 002250 005737 o0004e2 TST date ;15 IT RUNNING IN AUTO MODE? 
515 002254 001402 BEQ +6 :BR IF NO 
516 002256 005037 001236 CLR STRTSW !IF YES, CLEAR SWITCHES 
517 OOe2b2 032737 000001 00123 BIT #SWOO, STRTSW ;1F suOb=1 QUESTIONS ARE ASKED. 
£18 002270 o01012 BNE ? Suab=1 
£19 002272 105737 001236 TSTB © STRTSW eat 
520 002276 100007 BPL 175 °BR IF SWO7=0 
21 002300 005737 001306 TST OMACTY : ARE BNY DEVICES SELECTED” 
See 000304 OO100E ~ BNE 16$ :BR I 
523 002206 104402 cO71S4 TYPE,  NOACT = NO DEVICES SELECTED. 
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Ll-JUL-77 11:40 PAGE 12 PAGE: 90031 
:18 PROGRAM INITIALIZATION AND START UP. 
HALT STOP THE SHOW 
BR -2 :OIS IE CON ONT INUE SWITCH 
910512 175: 13 PC AUTO.SIZE  :G0 HE AUTO 
l 16$: TB —sCINSFLG FIRST TIME? 
BEQ 21$ :BR IF YES 
001236 sie STRTSW IF USING SAME PARAMETERS DONT TYPE MAP 
000006 901236 BIT #BITL'BIT2, STRTSW; Is TEST NO. OR LOCK SELECTED 
BF 1$ iE "ES ‘be Noy FyBe's YB rus 
001324 21$: COM INIFLG 
24 24g: TYPE XHEAD Fe 
1500 MOV kOM. MAP, RY fa POIN R 
001246 S$: MOV RY, TEMP! 
001250 MOV (R4)+, TEMP2 ‘SFT core 
BEQ 1$ ‘ALL DONE IF ZERO 
001252 MOV (R4)+, TEMP3 ‘SET STATI 
001254 MOV (R4) +) TEMPY :SET STAT2 
001256 MOV (R4) +! TEMPS :SET STATS 
CONVRT :TYPE OUT STATUS MAP 
a cs : 
001500 1S: MOV #0M. MAP, RO :RO POINTS TO STATUS TABLE 
ii ee rt we ee eee oe 
-% 
!:"THIS TEST VERIFYS THAT THE pnc11s ANDZOR KMCLIS ARE AT THE CORRECT FLOATING 
: eADORESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
::#CHECK THE SSES OF ALL FLOATING DEVICES aby DH, 0@, DU, DUP, LK, DMC,DZ,KMC: 
!4IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE OMC11, THE IRST 
:#DMC11 Ss IS 70. KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
::#ADORESS 760000. THIS TEST MAY REQUIRE © OR MORE ATTEMPTS TO GET THE 
:!#RIGH SSES. AFTER Y VE CHANGED THE ADDRESS TO WHAT IT TOLD 
;;#Y0U THE FIRST TIME, IT NAY COME BACK AND TEL LL YOU A DIFFERENT ADDRESS 
:¥THE NEXT TIME you RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 
Eat comer (AS LONG AS ALL DEVICES IN PROAT OF THE DMC'S ARE 
5s EERE EEELRSLALRERL SARA SLELSELELELRALERARAR EAL EL ALLSAALELAATERELE 
oo00004 MOV 384, -(SP) ;SAVE LOC 
000006 MOV a8, -(5P) ‘SAVE LOC 6 
0006 CLR dsb :CLEAR VEC+2 
eo12S2 CLR TEMP3 ‘CLEAR FLAG 
CLR RS >RS=0=0MC, RS=-1=KMC 
001404 AUSTRT: MOV (RO), OMCSR GET NEXT DMC CS 
SEQ AUDONE :BR IF DONE 
TST RS :DMC OR KMC? 
BNE 1$ :BR IF KMC 
100000 coooD2 BIT #BIT15,2(RO) :CHECK FOR DMC CSR 
BNE SKIP :SKIP IF NOT DMC 
BR 2$ ‘ITS A bic SO. CONTINUE 
100000 900002 1$: BIT #81T15,2 (RO) :CHECK FOR KMC CSR 
SEQ K ; SKIP IF NOT KMC 
002674 opon04 28: MOV #NODEY, 284 :SET UP FOR TIMEOUT 
TST RS :DMC OR KMC? 
BNE 33 :BR IF KMC 
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S80 002514 012703 000006 MOV #6 ,R3 :R3 IS COUNT OF DEVICES BEFORE DMC 

581 002520 900402 BR 4§ GO ON 

582 gg2ee 012703 000010 33: MOV #10,R3 !R3 IS COUNT OF DEVICES BEFORE KMC 

583 12702 003010 4g: MOV #DEVTAB, R2 Re IS DEVICE TABLE PONTER 

584 002532 O1e701 160010 MOV #160010,R1 ‘START WITH ADDRESS 160010 

58S 002536 005711 FLOAT: TST (RI :CHECK ADDRESS IN R1 

S86 O0eS40 111204 MOVB = (R2),R4 -TF NO TIMEOUT CET NEXT ADDRESS 

587 o0es42 060401 ADD RY RI IN RI 

Seg 002544 005201 INC 1 ; 

S89 0020546 O40401 BIC RY,.R1 : 

580 002550 005703 TST sANY Y MORE DEVICES TO CHECK FOR? 

591 002552 001371 BNE FLOAT ‘BR IF YE 

S92 002554 012737 002700 00004 MOV #ERR, a84 OK ONLY DMC’S ARE LEFT, SET UP FOR TIMECUT 

533 002562 010137 003022 MOV R1,XLOC :SAVE FIRST DMC/KMC ADDRESS 

594 002566 005705 FY: TST RS :DMC OR KMC? 

59S 002570 001005 BNE 1$ ‘BR IF 

59% 002572 032760 100000 090002 BIT sBIT1S,2(RO) CHECK FOR DMC CSR 

597 002600 001014 SNE SKIP ; SKIP IF NOT DMC 

598 O02602 BR 2g ITS A DMC SO CONTINUE 

599 002604 032760 100000 900002 13: BIT #BIT1S,2(RO) | ;CHECK FOR KMC CSR 

600 002612 001407 BEQ SKIP :SKIP IF NOT KMC 

601 002614 005711 23: TST (Rl) ‘CHECK DMC ADDRESS 

602 002616 020137 001404 CMP R1,OMCSR ‘DOES IT MATCH 

603 O02622 001411 BEQ OK ‘BR IF YES : 

604 062701 oo0010 ADD #10,R1 GET NEXT DMC ADDRESS 

605 002630 O00 BR FY :D0 IT AGAIN 

606 O02632 062700 oO00010 SKIP: ADD #10,R0 ‘SKIP TO NEXT CSR IN TABLE 

607 002636 011037 001404 MOV (RO} , DMCSR GET NEXT CSR 

608 O02642 001470 BEQ ALIDONE :BR IF DONE 

609 002644 000750 FY ‘ELSE CONTI 

610 00264 062700 o00010 OK: ADD #10,R0 :SKIP TO NEXT DMC CSR te 

611 OO026S2 062737 O00010 003022 ADD #10" XLOC UPDATE EXPECTED DMC/KMC ADDRESS 

ble 902660 011037 001404 MOV (R03 OMCSR :GET NEXT DMC’KMC CSR 

613 002664 001457 BEQ AUDONE :BR IF DONE 

614 O02666 01370: c03022 MOV XLOC,R1 !GET EXPECTED DMC/KMC ADDRESS 

615 002672 000735 BR FY : CONT INUE 

616 002674 122243 NODEV: CMPB (R2)+,-(R3) ;0N TIMEOUT, INC R2, DEC R3 

617 002676 O00002 RTI N 

£18 002700 005737 001252 ERR: TST TEMP3 CHECK FLAG IF = 0 TYPE HEADER 

619 002704 001014 1$ : SKIP HEADER 

620 002706 104402 TYPE : TYPEOUT HEADER MESSAGE 

$21 002710 007223 CONERR “CONFIGURATION ERROR! !!! 

622 002712 012737 O02700 901276 MOV BERR, SAVPC :SAVE PC FOR TYPEOUT 

623 20 104411 CNYRT ; TYPE OUT ERROR PC 

624 002722 002770 ERRPC 

625 24 104402 TYPE : TYPE REST OF HEADER 

626 002726 007277 CNERR h 

627 002730 012737 177777 901252 MOV 8-1. TEMP3 'SET FLAG SO IT ONLY GETS TYPED ONCE 

628 002736 010137 O01262 1S: MOY R1,SAVRL :SAVE Rl FOR TYPECUT 

629 OO0e742 104410 CONVRT 

630 002744 002776 CONTAB : TYPE csr VALUES 

631 902746 005705 TST RS “OMC OR KMC ? 

632 002750 001003 SNE 33 :BR IF K 

£33 104402 TYPE 

£34 092754 007320 OMCM 


£35 00275 O0040e BR 43 ; CONTINUE 
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636 002760 104402 3s: TYPE 
637 O02e762 007330 KMCM 
638 002764 O22626 4g: CMP (SP)+, (SP)+4 s ADJUST STACK 
639 00278 000727 BR OK :BR TO GET OUT 
640 002770 000001 ERRPC: 1 
641 002772 006 002 .BYTE 6,2 
642 002774 001276 SAVPC 
643 002776 000002 CONTAB: 2 
644 003000 006 004 “BYTE 6,4 
645 003002 003022 XLOC 
646 003004 006 002 z 6,2 
647 003006 001404 OMCSR 
64 903010 007 DEVTAB: .BYTE 7 :DJ 
64 3011 017 "BYTE 17 :DH 
650 003012 007 “BYTE 7 D0 
651 003013 007 "BYTE 7 DU 
652 003014 907 ‘BYTE 7 : DUP 
652 003015 007 “BYTE 7 LK 
654 003016 607 “BYTE 7 : DMC 
655 003017 007 "BYTE 7? D2 
656 007 "BYTE 7? :KMC 
657 003022 EVEN 
658 003022 o00000 xXLOC: O 
659 00 005705 AUDONE: TST RS ;DMC? : 
660 003026 001005 BNE 1$ :BR IF_KMC AND ALL DONE 
661 003030 012705 177777 MOV #-1,R5 ‘SET RS TO -1 (KMC) 
662 003034 012700 001500 HOV 40M. NAP, RO : RESET RO TO START OF TABLE 
aa Be sRdg BOSEos oo00008 1S: MOV CoB). ae 360.00, Foe 6 
665 00304 012637 900004 MOV (SP)+)a84 3RES TOR bo 4 
666 O0030S2 032737 OO0010 001236 BIT #5WO3; STRTSW LECT SPECIFIC DEVICES?? 
667 003060 O01422 BEQ 3$ BRI IF 1 -ne 
B68 003062 104402 006144 TYPE Aine z HE ME 
670 Negi nae BB HALT ai oy a “ TELL WHAT DEVICES TO & 
671 003072 027737 176104 001212 chp QSUR, SAVACT iS TH ERY 

te . 
£7 102 tate 006005 aL oe ,MERR3 EL F ARERR Bio NUMBER. 
674 003106 O00000 HALT :STOP EVERY THING. 
675 003110 000776 BR -2 ;RESTART THE PROGRAM A 
676 OO31l2 017737 176064 001306 23: MOV ash DNACTY GET NEW DEVICE PATTERN 
677 003120 013700 001306 HOV. acty.R THE USER WHAT HE SELECTED. 
67 bps Se verge 000300 38: MOV #300, RO SU 8 Ea the TEES FING 
680 003132 012701 000302 MOV #302 .R1 “VECTOR 

ug: MOV Ri) (RO}+ sFTRL purring * IS - HALT” 

14 1 CLR (RL)+ N VE 
683 002142 O22021 CMP (RO)+, (R1)+ sPOP POINTERS 
684 003144 022700 o01000 CMP #1000'RO L DONE?? 
B85 003150 001372 BNE 4§ ‘BR IF NO. 
£87 :TEST START AND RESTART 
ie peer 
690 902152 012706 001200 -BEGIN: MOV BSTACK, SP ;SET_UP_ STACK 
691 O0315€ O13746 oc0006 MOV 286, -(SP) :SAVE LOC & 
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001304 
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ooooo4 

007776 

030000 
037400 
000340 177776 
000004 001236 
BOSONS 

ue 

Booed) | Bo3e14 
003730 003612 
003732 003614 
010060 001214 
000002 001236 
0057s5 

175636 
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6$: 


2$: 


10$: 


1$: 


3$: 
4§: 


S$: 


(SP)+; a6 

10$ 

(doe (SP)+ 
4 RO’ 


17776 AO, 


7§ 
#37400, RO 
#340, PS 
#B1T2, STRTSW 
MLOCK 
BNOP , TST 
#NOP, TTST+2 
3 
BRW, TTST 
BRX’ TTST+2 
acYCLe, RETURN 
a , STRTSW 


SPE TURN 


PAGE: 0034 


1 


:SET UP FOR TIME OUT 
;T0 AUTOSIZE MEMORY 

;CHECK ADDRESS IN RO 
:1S IT AT LEAST 28K 


:BR 
:SAVE 2K FOR MONITORS 
: STORE ait LIMIT 
RESTORE LOC 4 
;RESTORE L LOC 6 

; CONTI 
ADJUST STAC 
:GET LAST 6000 ADDRESS 
: SAVE 2k FOR MONITORS 
1S IT 8K? 
BR IF NO 

; IF 8K DON’T SAVE 2K 


{LOCK OUT INTERRUPTS 
: CHECK ay LOCK ON 


TEST 
L DESIRED. 
ited be LOCK Sete eTeD 

T ROUT THE. 

UP LOCK 

;CONTINUE ALONG. 
;PREPARE NORMAL SC 
*LOCK NOT SELECTED 


*START AT “CYCLE” FIND WH 
IS TEST NO. SELECTED? 
:BR IF YES 


OPE ROUTINE 
SET UP FOR NORMAL stort LOOP 
WHICH DEVICE TO TES 


;TYPE_R 
:START TESTING 


JO3 
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DZDME.P11 12-MAY-77 14:18 END OF PASS ROUTINE 
; Peseta 
7 F TEST 
7 gut ACT-11 
ce9 eat OF ET. 
? 4 .EOP: RESET D CLEAN AGAIN. 
? nace goons 001234 ER LSTERR iCLEER List” ERROR Be 
7 108037 001325 CLRB = ERRFLG 
7 901230 INC PASCNT ‘CBBA ANE eRroe SUNT 
73S 003402 013777 001230 175570 MOV PASCNT, JDISPLAY sDISPLBY PASS COUNT 
238 10 104402 ? TY »MEPASS PASS 
7 14 1044 TYP " MCSRX 
535 Shouoy touude poeioS CINE MVEEX ao TT, TOR 
740 pois 104411 nea ONVAT VEE : SHOW ¥§° 
mi 003434 1owNGe 006106 TYPE » MPASSX : TYPE PASSES 
ih | ° 
74 netted tat 00611 YPE NEBR if RRORS 
mae BONEN ratty Doi aoe a BK RO 5 HOM INTER TO PASS C 
ee . 
746 003460 613708 901236 MOV Pa RO Role : One Pas oS COUNT Poe THs some, 
74 74 1017 nig et : BLL OEY 
7% il 000377 001327 nove #377, QV. FUG ra THE QUICK VERIFY FLAG. 
Fe, Bees Biba BBARAS OOS mov HN SA PEE on HoT on pop 
753 003516 001406 BEQ ResTaT If NOT, CONTINUE TESTING 
ree 003520 000005 RESET STOP THE SHOW--CLEAR THE WORLD 
SENDAD: 
756 003522 004711 JSR PC, (R1) 
757 003524 O00240 NOP 
738 003526 ooge4G NOP 
760 ppaese | BONS NOP 
761 eee p06 39 010060 001214 RESTRT: MOV SCYCLE, RETURN 
762 003542 000137 910060 JMP CYCLE 
763 003546 000001 XCSR: 1 
764 003550 006 002 .BYTE 6,2 
765 S2 porO4 DMCSR 
766 54 1 XVEC: 1 
767 003556 004 oo2 -BYTE 4,2 
768 003560 001374 aati DMRVEC 
553 Bpsepg 00ge) p02 ~ “owe “is 
771 003566 001230 PASCNT 
a 003574 001232 ERRCNT ° 
77 :SCOPE LOOP AND INTERATION HANDLER 
778 Dat ARMS 2. PORTIS 
779 002576 004737 007606 .SCOPE: JSR PC, CKSWR :CKECK FOR SOFT SWR 
786 003602 O100l6 MOV RO’ (SP3 :SAVE RO ON THE aH ek 
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040000 


007606 
001000 


001220 
001220 


o0000e 
000002 
010016 
010000 


005672 
175154 
175150 


175370 


175342 


001222 


001222 
001214 


175232 


000002 


17S164 


PAGE: 
GENERAL AT ILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
BIT #B1T14, aSWR ieh00e oN THIS TEST“? 
TTST: BEG 1$ (IF LOCK O1=1 ; THIS LOC =249) 
3$ i ea (IF LOCK + THIS LOC =240) 
TST DONE fea KCSR DONE SET? 
BEQ 3$ “BR IF NO aft OCKED ON TEST) 
CLR DONE iYES, 
BR 2g bee 
1$: BIT 8SW11, dSWR LE ETE TERR Fon? (QUICK PASS) 
TSTB QV.FLG A PASSES BEECOMPLETED? 
BEQ 2$ fo IF QUICK PASS. 
INC LPCNT ‘UPDATE ITERATION COUNTER 
CMP LPCNT,ICOUNT § ;ARE ALL ITERATIONS DONE?? 
BLOS 3% ;BR IF NOT YET 
2s: CLRB = ERRFLG ‘PREPARE FOR NEW TEST 
CLR LPCNT :START ICOUNTER AT 0 
MOV rite ICOUNT ;RESET ITERATIONS 
MOV NEXT, RETURN GET NEXT TEST 
3S: MOV (SP)? RO :POP_RO OFF OF THE STACK 
POP2SP ‘FAKE AN “RTI” 
MOV DMCSR, R1 :R1 CONTAINS BASE DMC ADDRESS 
IMP JRE TURN :GO DO THE TEST 
BRW: 1407 
BRX: 437 
DONE: 0 
;CHECK FOR FREEZE ON CURRENT DATA 
.SCOP1: JSR PC, CKSWR :CHECK FOR SOFT SWR 
BIT #SW09, ISWR T§ SWO9=1(SET)? 
BEQ 1$ !BR IF NOT SET. 
TST LOCK 
BEQ 1$ 
MOV LOCK, (SP) :GOTO THE ADDRESS IN LOCK. 
1$: RTI GO BACK. 
: TELETYPE OUTPUT ROUTINE 
.TYPE: MOV RS,-(SP) ;SAVE RS ON THE STACK. 
MOV detsP).RS ‘GET ADDRESS OF MESSAGE. 
ADD #2,2(SP) POP. OVER ADDRESS. 
4g: TST SWFLG : SOFT SUR NES is 
BNE 1$ IF YES TYPE IT “OUT oREGAROLESS OF SWi2 
BIT #SW12, ISWR : INHIBIT ALL PR 
: 3 a8 UF A IF NO. nih INT OU ONTED (SWi2Z=1) 
1$: STB (RS) 1 es wee locates 
BPL 2s :BR IF TE RUER IS PLUS 
TYPE MCRLF ‘TYPE A CR/LF! 
2s: TSTB  aTPCSR :TTY READY? 
PL 2 :BR IF NO. 
MOVB  (RS)+, aTPDBR PRINT CURRENT CHAR 
BNE SIF NOT ZERO KEEP PRINTING! 
3S: MOY (SP)+,85 ‘END OF OUTPUT. RESTORE RS 


KO3 
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gy 00404 oo0002 RTI -GO HOME 
839 ‘ 
840 OO40SO 010346 . INSTR: MOV R3,-(SP) ;SAVE R3 ON STACK 
Eat pouOse o1 mov RY -(SP) :SAVE RY ON STACK 
1 000004 004072 MOV a4tsp), .MSG 
843 004062 6& oO00002 O00004 ADD s4CSP 
844 004070 104402 .INST1: TYPE 
ous 72 .MSG: O 
B4 74 012704 0075 MOV #INBUF , RY 
847 004100 012703 00000 MOV #7,R3 
848 004104 105777 175074 1S: TSTB = ATKCSR 
BY9 008119 75 BPL 1s 
B50 OO4ll2 117714 175070 MOVB TKDBR, (R4) 
1 OO4116 142714 000200 BICB ss #te 
8S2 OO4l22 122427 O000015 CMPB (R44, #15 
853 004126 001417 BEQ NSTRE 
854 004130 175054 2s: TSTB a TPCSR 
855 004134 100375 BPL 2$ 
856 004136 017777 175044 175046 MOV JTKDBR, JTPDBR 
857 004144 005303 DEC R3 
858 OO4146 001356 BNE 1$ 
Bea Bowles BiSeR4 MOY CaP)aT RS 
MOV (5P)+,R3 
861 OO41S54 104402 oOSbEE .INSTE: TYPE MOM 
eo One tone Ry tS 
Bey Bowles 741 BR . INSTI ‘ 
86S OO4166 012604 INSTRe: MOV (SP)+,R4 sRESTORE RY 
B66 904170 MOV (SP)+'R3 :RESTORE R3 
Bb? 1 RTI 
853 ;CONVERT ASCII STRING TO OCTAL 
871 : 
872 OO4174 O10S46 .PARAM: MOV RS,-(SP) 
873 OO4176 O10446 MOV R4’-(SP) 
874 O04200 O16605 900004 MOV 4 (SP), 
875 O04204 012537 00436 MOV (RS)+,LOLIM 
876 O04210 012537 004366 MOV (RS)+)HILIM 
877 004214 012537 00437 MOV (RS) +, DEVADR 
878 O04220 112537 004372 MOVB = (RS)+, LOBITS 
879 004224 112537 004373 MOVB (RS) +. ADRCNT 
880 004230 O10S66 0000 MOV RS, 4(SP) 
881 004234 905005 PARAM: CLR 
882 004236 012704 007502 MOV #INBUF , RY 
883 OO04e4e iee7 14 000015 CMPB —s«#1S, (RG) 
884 O0424%6 001420 BEQ PARERR 
88S O042S0 121427 o00060 1$: CMPB —s._-« (R41) , #60 
886 O042S4 O0e4iS BLT PARERR 
887 O042S6 121427 000067 CMPB 3s« (R44), #67 
888 OO04262 003012 BGT PARERR 
889 O04264 142714 oD00060 BICB #60, (RY) 
90 004270 152405 BISB (R454. RS 
004272 122714 oo001s CMPB «#15, (R4) 


891 
892 004276 001406 BEG LImtTs 
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004366 
004364 
004372 


004370 


o000de2 
004373 


001276 


MO3 


A R 
A R 
ASL RS 
BR 
PARERR: INSTER 
BR PARAM 


LIMITS: CMP RS, HILIM 
BHI PA 
CMP RS, LOLIM 
BLO PARERR 
BITB LOBITS,RS 
BNE PARERR 


;STORE NUMBER AT SPECIFIED ADDRESS 


MOV DEVADR, R4 
1$: MOV RS, (R4S+ 
#2/RS 


D 

DECB ADRCNT 
NE 1$ 

MOV (SP)+,R4 

MOV (SP)+.RS 


RTI 
LOLIM: O 
HILIM: O 
DEVADR: 8 


LOBITS: 
ADRCNT=LOBITS+1 
cs PC OF TEST THAT FAILED AND RO-RS 


.SAVOS: MOV —- 4(SP) , SAVPC ;SAVE R7 (PC) 
;SAVE RO-RS 

SvOS: MOV — RS,SAVRS ;SAVE RS 
MoV —s- RY SAVY SAVE RY 
MOV —« RB, SAVR3 :SAVE R3 
MOV = Re SAVRe : SAVE 
MOV 1; SAVRI :SAVE RI 
MOV 0; SAV :SAVE RO 
RTI : LEAVE 
RESTORE RO-RS 

.RESOS: MOV —«- SAVRO, RO RESTORE RO 
MOV SAVRI;R1 :REST 
MoV § SAVR2;Re RESTORE Re 
MOV § SAVR3,R3 RESTORE R3 
MOY  SAVRY?RY RESTORE RY 
MOV  SAVRS; RS RESTORE RS 
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949 co4464 c00002 RTI ; LEAVE 


950 

351 CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
953 : 

954 O04466 104402 005672 .CONVR: TYPE MCRLF 
955 004472 O10046 “CNVRT: MOV RO,-(SP) 
956 OO4474 O10146 MOV R1;-(SP) 
957 004476 010346 MOV R3,-(SP) 
Swen toe my Ree 

eg ten see 000012 a12(SP) RI 
961 OO4Si0 062766 000012 ADD #2, 12(SP) 
62 004516 O1e137 0047 10 = MOV (RI) +, HROCNT 
964 ppueSe igi 37 71 MOV (R1) T 
965 004532 013137 004714 MOV a(R1)+, BINWRD 
966 004536 122737 004712 CMPB s-&#3, CHRCNT 
967 004544 001003 BNE 2s 

968 004546 042737 177400 004714 BIC #177400, BINWRD 
969 O045S4 013704 004714 2$: MOV BINWRD, RY 
870 004560 11370S 00471 MOVB = CHRCNT.RS 
971 004564 012700 O01416 MOV STEMP, RO 
972 004570 010403 3S: MOV R4.R3 

973 004572 042703 177770 BIC #177770,R3 
974 004576 062703 000060 ADD #060, R3 
975 O04602 110320 MOVB  R3, (RO)+ 
976 004604 000241 CLC 

977 004606 O06004 ROR R4 

978 004610 000241 CLC 

979 004612 O06004 RY 

980 004614 000241 CLC 

981 004616 ROR RY 

982 004620 DEC RS 

983 O04622 001362 BNE 3$ 

984 004624 012703 007544 MOV #MDATA, R3 
985 004630 114023 4S: MOVB (RO), (R3)+ 
985 004632 105337 004712 DECB = CHRCNT 
987 004636 001374 BNE 45 

988 004640 105737 004713 TSTB = SPACNT 
989 004644 001405 BEQ 65 

990 00464 112723 OO00040 cS: MOVB = #O4O, (R3)+ 
991 004652 105337 004713 DECB = SPACNT 
992 004656 001373 BNE c$ 

993 004660 105013 6S: CLRB (R33) 

994 004662 104402 007544 TYPE MDATA 
995 004666 005337 004710 DEC ROCNT 

996 004672 001313 BNE 1$ 

997 004674 012605 MOV (SP)+,RS 
998 004676 012604 MOV (SP)+°R4 
999 004700 012603 MOV (SP)+'R3 
1000 OO04702 012601 MOV (SP)+/R1 
1001 004704 012600 MOV (SP)+; 
1002 004706 o00002 RTI 

1003 004710 oon000 WROCNT: 0 

1004 O04712 O00ucd CHRCNT: 0 
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004713 SPACNT=CHRCNT+1 
714% 000000 BINWRD: O 


; TRAP prsparce SERVICE 

; ARGUMENT OF TRAP IS EXTRACTED 

;AND USED AS OFFSET TO OBTAIN POINTER 
:T0 SELECTED SUBROUTINE 


004716 011646 .TRPSR: MOV (SP), -(SP) ;GET PC oF RETURN 
004 162716 oo00d2 SUB a2, (SP) =PC OF T 
004724 017616 000000 MOV a¢SP), (SP) : iotare 
004730 006316 TRPOK: (SP) “MULTIPLY TRAP ARG BY 2 
004 042716 177001 BIC #177001,(SP) | :CLEAR UNWANTED BITS 
004736 062716 001330 ADD 8. TRPTAB, (SP) ; POINTER TO SUBROUTINE ADDRESS 
004742 017616 900000 MOV aiSP), (SP) TINE ADDRESS 
004746 000136 IMP acSp)+ ‘G0 TO SUBROUTINE 

;ERROR HANDLER 
004750 004737 007606 -HLT: JSR PC, CKSWR ;CHECK FOR SOFT SWR 
004754 010000 174220 BIT sSi2, JSWR ‘BELL ON ERROR? 
004762 001406 BEQ x BR IF NO BELL 
004764 105777 174220 TSTB © aTPCSR Y READY. 
004770 100003 BPL XBX ‘DONT WAIT IF TTY NOT READY. 
004772 112777 000207 174212 MOVB #207, dTPDBR :PUSH A BELL AT THE T 
005000 032777 Oe20000 174174 XBX: BIT 8SW13, ISWR ‘DELETE ERROR PRINT 1 
005008 001105 BNE HALTS ‘BR IF NO PRINT OUT WANTED. 
005010 021637 001234 CMP (SP) ,LSTERR WAS THIS ERROR FOUND LAST TIME” 
005014 001404 Q 1$ ‘BR IF YES 
005016 011637 001234 MOV (SP) ,LSTERR ; RECORD BEING HERE 
o0S022 105037 001325 CLRB. —s- ERRFLG R 
005026 104406 1S: SAVOS SAVE ALL PROC REGISTERS 
005030 011605 MOV (SP). RS ‘GET THE PC OF E 
005032 162705 000002 s2,! :GET ADDRESS OF TRAP CALL 
005036 011504 MOV (RS), R4 GET HLT INSTRUCTION 
005040 006304 ASL RY ; MULT BY TWO 
005042 061504 ADD (RS),R4 
005044 006304 ASL RY !MULT AGAIN 
00504 042704 177001 BIC 8177001,R4 :CLEAR JUNK 
O00S50S2 062704 031660 ADD #. ERRTAB, RY :GET POINTER 
0050S6 012437 005172 MOV (R4)+, ERRMSG ‘GET ERROR MESSAGE 
005062 012437 005204 MOV (R4)+'DATAHD § GET DATA HEADRER 
005066 011437 O0Sel6 MOV (R4) , DATABP iGET DATA TABLE 
005072 105737 001325 TSTB = ERRFLG : TYPE HEADREER 
005076 001403 BEQ TYPMSG ‘BR IF YES 
005100 737 O0S216 TST DATABP !DOES DATA TABLE EXIST” 
005104 001040 BNE TYPOAT :BR IF YES. 
005106 104402 005672 TYPMSG: TYPE ,MCRLF 
00Sii2 104402 005672 TYPE MCRLF 
005116 005737 001220 TST t 
005122 001402 BEG 
005124 104402 opb14e TYPE  ,MASTEK 
005130 104402 006130 1S: TYPE § {MTSTN 
005134 104411 905220 CNYRT > XTSTN :SHOW IT 


: 
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od 
BRS 
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140 1 006217 TYPE  ,MERRPC TYPE PC. 
heathy tT 005322 CNVRT ‘ERTABO ‘SHOW IT 
005150 104402 00567? TYPE MCRLF -GIVE A CR/LF 
005154 177777 001325 MOVE &-1, ERRFLG :NO MORE HEADER UNLESS NO DATA TABLE 
162 005172 TST ERRMSG 1S THERE AN ERROR MESSAGE” 
005166 001402 BED WRKO.FM iBR RIF NO. 
tee hoooos ERRMSG: 0 : ERROR MESSAGE 
005174 WRKO.FM: : 
005174 005737 o0S204 TST DATAHD DATA HEADER? 
005200 001402 Q TYPDAT BR IF NO 
005202 104402 YPE : TYPE 
p05204 o00000 DATAHD: 0 : DATA HEADER 
095206 005737 o0S215 TYPDAT: TST DATABP DATA TABLE? 
D0S212 001402 Q RESREG ‘BR IF NO. 
005214 104410 CONVRT : 
005216 o00000 DATABP: 0 : DATA TABLE 
005220 104407 RESREG: RESOS !RESTORE PROC REGISTERS : 
005222 022737 o003S22 o00042 HALTS: CMP BSENDAD,a842 IF ACT-11 AUTOMATIC MODE, HALT!! 
005230 001403 BEQ 1$ 
005232 005777 173744 TST aSWR ;HALT ON ERROR” 
005236 100005 BPL EXITER ‘BR IF NO HALT ON ERROR 
005240 010046 1S: PUSHRO :SAVE RO 2 
005242 016600 oo0002 MOV 2(SP),RO SHOW ERROR PC IN DATA LIGHTS 
005246 000000 : HALT 
005250 012600 POPRO GET RO 
005252 005237 001232 EXITER: INC ERRCNT ‘UPDATE ERROR COUNT 
005256 032777 173716 BIT #SWO8, ISWR :GOTO TOP OF TEST? 
005264 001007 BNE n ; 
005266 032777 OO02000 173706 BIT 8SW10, ISWR :GOTO NEXT TEST? 
005274 OO1411 BEQ : NO 
005276 013737 001216 001214 MOV NEXT . RETURN :SET FOR NEXT TEST 
005304 012706 001200 1S: MOV #STACK, SP :RESET SP 
005310 013701 001404 MOV OMCSR, Rl :SET UP R1 
005314 000177 173674 IMP JRE TURN :GOTO SPECIFIED TEST 
005320 900092 25: RTI : RETURN 
005322 O00001 ERTABO: 1 
005324 006 902 “BYTE 6.2 
005326 001276 SavPC 
005330 000001 XTSTN: 1 
005332 003 002 -BYTE 3,2 
005334 O001226 N 
sENTER HERE ON POWER FAILURE 
005336 PFAIL: 
005336 012737 905350 900024 HOY BRESTART, 24 : SET_UP FOR POWER bP BRE 
H ‘ U UNI s 
005346 ena BR 
:PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
005250 RESTAR: 
005350 012737 005336 990024 MOY #.PFAIL, 24 :SET UP FOR POWER FAILURE 
005356 012706 of1200 MOY aSTACK, SP -RESET THE STACK POINTER 


DO4 
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1117 905362 013701 001404 MOV DMCSR,R1 sRESTORE R1 

tis bolaie Che OTE ‘ALUs ove 0 Te TIMER 

tise Bosse borate me Oe ‘BR TF MORE. 10.60 

1121 005400 104402 005675 TYPE (| MPFAIL ‘TYPE THE MESSAGE 

1122 104411 005430 CNVRT ‘PFTAB *TELL WHAT TEST TO RETURN TO. 
1123 005410 105037 001325 CLRB = ERRFLG ; START. CLEAN 

1124 005414 005037 001234 CLR LSTERR 

1125 005420 005011 CLR (R1) CLEAR MAINT BITS 

1126 O0S4 144 Le MSTCLR ; START CLEAN UP OF DEVICE 

1127 005424 000177 173564 JMP JRETURN :START DOING THAT TEST AGAIN. 
1128 005430 000001 PFTAB: 1 

llee 905432 003 oo2 .BYTE 3,2 

1130 005434 001226 TSTNO 

1132 005436 DELAY: 

1133 005436 012777 oO00020 173746 MOV #20, JDMPO4 

1134 OO0S444 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
1135 OOS544%6 121111 l21111 :POKE CLOCK DELAY BIT 

1136 OOS4SO 1S: 

1137 OOSYSO 104414 ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PC=S304 
1138 005452 121204 121224 :PORT4+ IBUS#1 

1139 O0S4S4 032777 00920 173730 BIT SBIT4,aDMPO4 :IS CLOCK BIT Meera 

1140 O0S462 001772 BEQ 1$ :BR IF NO 

11a 005464 000002 RTI 

1143 O0S466 -MSTCLR: 

1144 005466 152777 000100 173712 BISB  &BIT6,3DMCSRH  ;SET MASTER CLEAR 

1145 005474 142777 000309 173704 BICB #B1Tb!BIT7, QDMCSRH :CLEAR MASTER CLEAR AND RUN 
114 oosso2 o0000e RTI : RETURN 

1148 oOSSO4 -ROMCLK: 

1149 005504 152777 o00002 173674 BISB © 8BIT1,ADMCSRH =; SET_ROMI 

1150 005512 013677 173676 MOV a(SP)+, SDMPOb PpADY INSTRUCTION IN SELE 

1151 005516 746 ADD #2, -(SP) ADJUST STACK 

1152 522 000100 1734S2 BIT #SWO6 , JSWR ‘HALT IF SWOG =1 

1153 005530 001401 BEG 1$ *BR IF SWO& =0 

1154 HALT “HALT BEFORE CLOCKING INSTRUCTION 
1155 005534 152777 000003 173644 1S: BISB  #BIT1'BITO,3DMCSRH :CLOCK INSTRUCTION 

1156 005542 142777 000007 173636 BICB  #BIT2!BITl 2 BITO,aOMCSRH ;CLEAR ROMO, ROMI, STEP 
1157 005550 00002 RTI 

1159 oossse .DATACLK: 

1160 013637 001416 MOV 3(SP)+ TEMP sPUT TICK COUNT IN TEMP 

1161 OOSSSE O62746 oO00002 ADD -(SP) JUST STACK 

1162 Sée 152777 000020 173616 1S: BISB satT4 JOMCSRH SET STEP LU 

1163 005570 027777 173610 173606 CMP JOMCSR, JDMCSR ; WASTE TIME 

1164 005576 142777 000020 173602 BICB #BIT4,9DMCSRH CLEAR STEP LU 

1165 005604 005337 OO14i6 DEC TEMP :DEC TICK COUNT 

1166 005610 001364 BNE 1$ :BR IF NOT DONE 

1167 O0S612 o00002 RTI RETURN 

1168 005614 90000! 33: -BLKW 1 

1170 oOSb1E TIMER: 

1171 OOS61&6 013637 oO141E MOV a(SP)+, TEMP MOVE COUNT . To TEMP 

1172 OGOStee Obe74e O0000e ADD #2,-( SP) “ADJUST STAC 


EQO4 
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1173 005626 1$: 

1174 O0S6e6 104414 ROMCLK ;NEX XT WORD 1S INSTRUCTION, ROMCLK PC=S304 

1175 005630 021364 021364 -PORT4+IBUS# REGI1 

1178 oooo02 173552 BIT #2, JOMPO4 iis Fgh Ch CLOCK BIT CLEAR? 

Liz? 1772 - BEQ 1$ 

ll 42 14 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 

i173 operas nest 021364 : PORT4+ IBUS# 

1181 O0S64%6 032777 OO0CO02 173536 BIT #2, JOMPO4 15 PGM CLOCK BIT SET? 

1182 005654 001372 BNE 2s :BR IF YES 

1183 005656 005337 O01416 DEC TEMP :DEC COUNT 

1184 005662 001361 BNE 1$ ;BR IF NOT DONE 

1185 005664 o00002 RTI : RETURN 

1187 OOS&&6 000077 MOM: .ASCIZ 7 7 ° 

(2) 005672 oos015 MCRLF: .ASCIZ <¢15)><12> 

(2) 905675 377 053520 020122 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 

(2) 005733 377 047105 0201 MEPASS: .ASCIZ 372) /END PASS DZDME 

(2) 377 O00l22 MR -ASCIZ <377>/ 

(2) 005760 047377 O20117 o4es04 MERR2 -PSCIZ (379) /NO DEVICES PRESENT. / 

(2) 377 O47111 MERR3: .ASCI (377>/ INSUFFICIENT DATA! / 

(2) 1 377, 042524 OS2le2 MTSTPC RSCIZ (377>/TEST PC-/ 

(2) O06043 377 047514 045503 K: .ASCI (372) /LOCK ON SELECTED TEST/ 

(2) 006072 051503 035122 O00040 -ASCIZ = /CSR: 

(2) 006100 035103 MVECX ASCIZ /VEC: / 

(2) 0061068 O40520 051523 MPASSX: .ASCIZ /PASSES: / 

(2) 006117 10S OS1l22 051117 X: .ASCIZ /ERRORS: / 

(2) 006130 oO42524 052123 047040 MTSTN: .ASCIZ /TEsT NO: / 

(2) O06142 o000S2 -ASCIZ 

(2) 006144 051777 OS210S 051440 .ASCIZ (377) /SET SWITCH REG TO DMC11°S DESIRED ACTIVE. / 

(2) 006217 120 035103 0 MERRPC: .ASCIZ 

(2) 006224 dedele 020040 d20040 -RSCIT 1s) MAP OF DMC11 STATUS/ 

(2) ppesss 020212 anit BS0103 -Bectt < le>/ PC CSR STATI STAT2 STAT3/ 

(2) 006374 026777 O2645S Oe64SS "ASCIZ (377) femnene eee eee cere ree 

(2) 006 044377 053517 O46440 NUM: .ASCIZ (377 HOW MANY DALI S TO BE TESTED?” 

(2) 006510 041777 OS1123 O4O44O CSR: “ASCIZ <377>/C $?/ 

(2) O06 041505 047524 VEC: "ASCIZ <377>/VECTOR ADDRESS?’ 

(2) 006547 377 051102 OSOO040 PRIO: .ASCIZ <377>/BR PRIORITY LEVEL? (4,5,6,7)7/ | 

(2) 044777 020106 O46S504 CRAM:  “ASCIZ <377>/IF DMC HAS CRAM (M8204) TYPE wy", TF CROM (M8200) TYPE “N™ 

(2) 0067 777 044510 O44103 MODU: .ASCIZ <377>/WHICH LINE UNIT? IF NONE TYPE “N™, ir M8201 TYPE “1", IF M 

(2) 007016 051777 O44S27 041524 LINE "ASCIZ <377>/SWITCH PAC#1 (DDCMP LINE #)?/ 

(2) 4 051777 O44527 041504 M "ASCIZ <377>/SWITCH PAC#e (BM873 BOOT ADD)? 

(2) 007114 O44 020123 044124 CONN "ASCIZ <377>/1S THE LOOP BACK CONNECTOR ON?’ 

(2) S4 047377 O20117 O42504 NOACT: .ASCIZ <377>/NO DEVICES ARE SELECTED- 

2 mee ie Bee bur =| Sime. aes A 

(2) 007223 77 042377 O41515 CONERR aects (NEY S77) NCL FOUND AT NON-STANDARD ADDRESS FC: 

(2) 377 OS410S 042520 NERR: SCI2 (377) /EXPECTED FOUND/ 

(2) 007 024040 O46504 O24S03 DMCM: ASCIZ J (OM C) 

(2) 007330 024040 046513 024503 KMCM: SC12 KMC ) 

if 007340 042377 O41S1S O30461 SPEED: ASCIZ (377) /DMCLI-AR (REMOTE, LOW SPEED) OR OMCiI-AL(LOCAL.HIGH SPEED) T 

(2) 907454 gp000s XSTATO: S 

1188 9074Se O06 902 “BYTE 6,3 

1183 O07469 o0124¢ TEMP! 
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L1-JUL-77 11:40 PAGE 25 PAGE: 
4:18 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
003 .BYTE 6,3 
TEMP2 
003 .BYTE 6,3 
TEMP3 
003 .BYTE 6,3 
TEMPY 
oo2 .BYTE 6,2 
TEMPS 
EVEN 
;BUFFERS FOR INPUT-OUTPUT 
INBUF: 0 
.=. +40 
MDATA: O 
=. +40 
:ROUTINE USED TO CHANGE SOFTWARE SWITCH 
‘REGISTER USING THE CONSOLE TERMINAL 
000176 091202 CKSWR: CMP SSWREG, SWR IS THE art SWR BEING USED? 
BNE CKSWRS -BR IF 
171362 TSTB STKCSR 21S BONES SET? 
177777 003734 ae 1 +7 Bone nl ay 
*- 31 bas! CTR 
000007 171346 23: Cr 7, STKDBR i HRS | ne tyBeor CP BIT ASCIZ: 
000207 171336 CMP 1307 QTKDBR : WAS TE TRE 5 TYPED? (8 BIT ASCII) 
BNE CKSWRS :BR IF NO 
1$: MOV Re ,-(SP) : STORE 
MOV R3,-(SP) :STORE R3 
MOV R4'-(SP) ;STORE RY 
177777 O1001$ MOV 8-1, SWFLG :SET SOFT TYPE OUT FLAG 
CKSWR1: CLR R2 :CLEAR NEW SWR CONTENTS 
177777 MOV #-1,R4 :SET FLAG TO ALL ONES 
907205 TYPE , SWMES :TYPE “SWR= 
CKSWR2: CNVRT ‘TYPE OUT PRESENT CONTENTS 
SOF TSW :OF SOFT SWITCH REGISTER 
007215 CKSWR3: TYPE SWMES1 : TYPE “NEW? 
010020 CKSWRY: JSR PC. INCHAR :GET RESPONSE 
000015 CMP #15.R3 WAS IT @ CR? 
BEG :BR IF YES 
000012 CMP #12,R3 :WAS IT A LF? 
BEQ :BR IF YES 
oo00025 CMP #25,R3 “WAS IT CTRL_U? 
BEQ CKSWR1 ‘BR IF YES(START OVER) 
000007 CMP #7. R3 :IF CNTL G GET NEXT CHAR 
BEG CKSWRY 
CLR RY :IT MUST BE A DIGIT SO CLR FLAG 
177770 BIC #177770,R3 :ONLY O-? ARE LEGAL SO MASK OFF BITS 
ASL R2 SOuIET R2 3 TIMES 
ASL Ro 
ASL Re : 
BIS R3,Re :ADD LAST DIGIT 
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DZDME.P11  12-MAY-77 14:18 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 

12% 007762 000752 BR CKSWRY :GET NEXT CHARACTER 

1247 OO7764 012766 OOed0e oo0006 4g: MOV 8.START,6(SP) :LF WAS TYPED SO GO TO START 

1248 007772 005704 cs: TST R4 i1S FLAG CLEAR? 

1249 007774 001002 BNE 6$ ;1F NOT DON'T CHANGE SOFT SWR 

1250 007776 010277 171200 MOV R2, ISWR !IF YES THEN WRITE el CONTENTS TO SOFT SuR 

1251 010002 005037 010016 6$: CLR SWELG :CLEAR TYPEOUT F 

1252 O10006 012604 MOV (SP)+, RY ‘RESTORE RY 

1253 010010 012603 MOV (SP)+'R3 !RESTORE R3 

1254 010012 012602 MOV (SP)+'R2 ; RESTORE R2 

1e5s 010014 o00207 CKSWRS: RTS pc : RETURN 

ie? 010016 oco000 SWFLG: O 

1259 010020 105777 171160 INCHAR: TSTB  aTKCSR 

1260 010024 100375 BPL <4 

1261 010026 017703 171154 MOV STKOBR, R3 

1262 010032 105777 171152 TSTB —@TPCSR 

1263 Ol 100375 BPL 

1264 O10040 010377 171146 MOV R3. JTPDBR 

1265 010044 042703 O00200 BIC eli?, R3 

1266 0100S0 o09207 RTS 

1268 o100S2 ooco01 SOFTSW: 1 

1263 910054 06 op2 -BYTE 6,2 

te70 4910056 o00l76 SWREG 
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DIDME MACYLI 3O0(1046) L1-JUL-77 11:40 PAGE 27 PAGE: 
DZDME.P11 12-MAY-77 14:18 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
He 
t "4 ROUTINE USED TO “CYCLE” THROUGH UP TO 16 DMC11°S 
i neeaie he See Pret Gneth'e “GUTE et "eat = 
io76 :BE RUN Ine BEFORE A rPRING Fie DIAGNOSTIC FOR THE 
1277 SETUP NECESSARY. 
is?e ; 
1 010060 005737 001306 CYCLE: TST DMACTV sARE ANY DMC11°S TO BE TESTED? 
(382 Olooes 1ov402 007154 TPE LNOACT INO DMCI1#S SELECTED! ! 
¢ a ; ee 
1585 B18088 | Adocas Hoe iM . 
1284 010074 000776 BR .-2 :DISQUALIFY CONT. SW. 
1285 010076 1 18: CLC CLEAR PROC. CARRY BIT. 
1286 010100 006137 001316 ROL RUN ‘UPDATE POINTER 
i LGD Gere? GEN oraz Rmx ‘buat soen 
1089 010116 062737 000010 001320 ADD #10, CREAM 1 UATE ADDRESS POINTER. 
1290 010124 022737 001700 001320 CMP #0"! MAP+200, CREAM 
1291 010132 001006 BNE 2$ sKEEP GOING; NOT ALL TESTED FOR. 
1e92 010134 012737 001500 001320 MOV #0M.MAP,CREAM :RESET ADDRESS POINTER. 
1293 010142 012737 001702 001322 MOV #CNT.MAP MILK :RESET PASS COUNT POINTER 
1294 010150 033737 001316 001306 23: BIT RUN, DMACTY -IS THIS ONE ACTIVE? 
1295 010156 001747 BEQ 1$ :BR_IF NO 
12968 010160 013700 001320 MOV CREAM, RO GET ADDRESS POINTER 
1°97 010164 013702 001322 MOV MILK, Re :GET PASS COUNT POINTER 
1298 010170 012037 001404 MOV (RO)+, DMCSR LOAD SYSTEM CTRL. REG 
1299 010174 011037 001374 MOV (RO), OMRVEC ‘Lh 
1300 010200 042737 177000 001374 BIC #177000,DMRVEC ;:CLEAR UNWANTED BITS 
1301 O10206 012037 001366 MOV (RO)+, STAT “LOAD STATI 
1302 O102l2 012037 001370 MOV (RO)+; STAT ‘LOAD STATE 
1303 010216 012037 001372 MOV (RO)+, STATS : STATS 
1304 010222 012237 001230 MOV (R2)+;PASCNT § ;LOAD PASS COU 
1395 010226 012237 O01e32 MOV (RO)+,ERRCNT | LOAD ERROR COUNT 
1306 010232 012700 o00002 MOV 82 :SAVE CORE THIS WAY! 
1307 010236 013737 OO1404 O01406 MOV OM¢SR, DMCSRH 
1308 010244 005237 001406 INC H 
1309 010250 013737 091406 001419 MOV OMCSRH, DMCTL 
1310 010256 005237 001410 INC OMCTL 
1311 010262 013737 OO1410 oo1412 MOV OMCTL, DMPO4 
1312 010270 060037 O0141e ADD RO, DMPO4 
1313 oi 74 OO i4ie 001414 MOV DMPOY. DMPC 
1314 1 a2 7 601414 ADD RO, DMPOE 
1216 010306 013737 901374 001376 MOV DMRVECDMRLVL sPTY LYL 
1312 stakes 1 BB 76 001400 MOV OMALVL,OMTVEC :TX VEC 
1320 gloss ola7a7 001400 o0l4oe MOY ODMTVEGSDMTLVL «TX LYL 
;TX LY¥ 
1361 1aa6 Waa pot ADD Br OMTeSL 
1323 010344 032737 o0D002 001236 BIT wSWO1,STRTSW  ;IS TEST NO. SELECTED 
1324 010352 001450 BEG 7g :BR IF NO 
13225 010354 4g: 


ise&é 010354 005737 Of004e TSY aete ;RUNNING IN AUTO MODE? 
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1327 910360 001045 

1328 010362 1044 
1329 010366 104403 
1330 010370 006130 
1331 010372 104405 
1332 010374 i 
1333 910376 901000 
1334 O10400 O0le26 
1335 10402 O00 
1336 010403 001 
1337 O10404 012700 
1338 010410 022710 
1339 10412 010737 
1340 10414 901020 
lie 
1342 Blouse boior4 
1343 010426 022760 
1344 010434 001019 
1345 010436 010037 
1346 O10%4e 104402 
1347 O1ONG 042737 
1343 G1oNee 005720 
1350 010460 
1351 O10464 001351 
1352 O10466 104402 
1353 01072 000730 
1385 910474 012737 
139 Bibe06 000177 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 010512 
1369 010512 
1370 010514 Ole2702 
1371 010520 o0S022 
1372 010522 022702 
1373 010526 001374 
1374 010530 37 
1375 010534 012702 
1376 010540 
1377 010544 032737 
1378 010862 001002 
(30 Bibees 12737 
1361 010566 104403 
1382 010570 o064s0 
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0 PAGE 28 PAGE: 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
BNE 7$ :BR IF YES 
TYPE  ,MCRLF 
INSTR :GET TEST NO. 
MTSTN 
PARAM 
1000 
TSTNO 
.BYTE O 
"BYTE 1 
MOV #TST1,RO 
Ss: CMP (PC)+; (RO) :CMP FIRST WORD TO 12737 
MOV (PC)+) a(PC)+ 
BNE ;BR_IF_NOT SAME 
cM TSTNO, 2(RO) DOES TSTNO MATCH? 
CHP #TSTNO,4(RO) :1S LAST WORD OK? 
AO RETURN IT IS A LEGAL TEST SO CO IT 
BIC #SWO1, STRTSW 
6S: a (RO)+ POP RO 
CMP RO,#TLAST+10 AT END YET? 
BNE $ BR IF NO 
TYPE MOM YES ILLEGAL TEST NO. 
SR 4g : TRY AGAIN 
73: MOV BTSTI,RETURN § ;PREPARE RETURN ADDRESS 
: V MCSR’RI °R1 = BASE DMC11 ADDRESS 
- ae ORE URN :GO START TESTING. 
; ROUT INE USED TO “AUTO SIZE” THE DMC11 
NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
. SRS CeeTCA Tet be AY ERE IN THE 
: FLOATING VECTOR RANGE (300:770) 
AUTO.SIZE: 
dain FE ceT ; INSURE A BUS INIT. 
CSRMAP: MOV #OM. MAP, R2 ‘LOAD MAP POINTER. 
15: CLR (R2}+ : ZERO ENTIRE MAP 
CMP #0M.END,R2 ?ALL DONE? 
BNE 1$ BR IF NO 
CLR OMNUM ‘SET OCTAL NUMBER OF DMC11°S TO 9 
mune eae 
BIT #SWOO,STRTSW § ;QUESTIONS? 
oe ae" OR Ae SEP QUESTIONS 
apy #], TEMPS JF RY ath 1 
INSTR 
NUM 
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DZDME MACY11 30(104%6) L1-JUL-77 11:40 PAGE 29 PAGE: oo4e 
DZDME.P11 § 12-MAY-77 14:18 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 

ie HESS tha ‘ee 

te. 
TEMP3 

13ey ee .BYTE O 

1388 o1 O04 "BYTE 1 

1 1 013 001252 001310 MOV TEMP3, DMNUM ;DMNUM = HOW MANY 
i Re ie 12s: AT sHCRLF WHICH DNC IS BEING DONE 
1343 BIBESE AYSaa2 eta STEMS Te “UHICH DAC 
1393 010622 37 001256 INC TEMPS 

1394 010626 104403 INSTR 

1395 010630 006510 CSR 

13% 010632 104405 ARAM 

1397 010634 160000 160000 

1398 010636 164000 164000 

1399 010640 001254 EMPY 

1400 010642 ooo BYTE O 

1401 010643 001 “BYTE 1 

1402 O10644 013722 001254 MOV TEMP4, (R2)+ :STORE CSR IN MAP 
1403 010650 403 INSTR 

1404 010652 S26 VEC 

140S 010654 104405 p 

1406 010656 0 

1407 O10660 000776 776 

1408 O10662 001254 TEMPY 

1409 010664 000 .BYTE 0 

1410 O10665 001 “BYTE 1 

1411 010666 013712 001254 MOV TEMPY, (R2) ;STORE VECTOR IN MAP 
1412 010672 104402 10$: TYPE 

1413 010674 006547 PRIO ;ASK WHAT BR LEVEL 
1414 010676 004737 012266 JSR PC, INTTY GET RESPONSE 

1415 010702 022703 o00024 CMP #24,R3 

1416 010706 101014 BHI SOs ;BR IF LESS THAN 4 
1417 010710 622703 000027 CMP #27,R3 

141 ol 14 io ii BLO SOs aR IF GREATER THAN 7 
1419 010716 612704 000011 MOV #11,R4 *R4 = NUMBER OF SHIFTS 
1420 010722 006303 ASL R3 ‘SHIFT R3 LEFT 

tae 107. DEC RY :DEC SHIFT COUNT 

14 107; 1375 BNE 4 ?BR IF NOT DONE 

1423 010730 042703 170777 BIC #170777,R3 :BIC UNWANTED BITS 
1424 010734 050312 BIS R3, (Re) :PUT BR LEVEL IN STATUS MAP 
1425 010736 000403 BR 8$ : CONTINUE 

1426 010740 104402 SOS: TYPE 

1427 010742 MOM ;RESPONSE IS OUT OF LIMITS 
1428 010744 000752 BR 10 TRY AGAIN 

1429 O10746 104402 8S: TYPE 

1430 019750 O06606 CRAM =DOES DMC HAVE CRAM? 
1431 010752 004737 012266 JSR PC, INTTY GET REPLY 

1432 010756 022703 000131 CMP #131,R3 

1433 010762 001427 BE 93 : YES 

1434 010764 022703 OO0116 CMP #116,R3 :N 

143S 010770 001403 BEQ 40$ :NOT A Y OR N 

1436 010772 104402 TYPE 

1427 010774 OOSEEE MQ sTYPE 2" 

1438 010776 000763 8S ASK AGAIN 
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DZ2DME MACYLI 30(1046) 11-JUL-77 11:4C PAGE 30 PAGE: 0049 
DZDME.P11 § 12-MAY-77 14:18 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
4y 40$: TYPE 
iiae D AgI5 SPEED sDMC11-AR OR DMC11-AL? 
laa a a are tp BERG. i! ceronee 
1443 OL ios cate BEQ RF :BR H REMOTE 
1444 011016 000114 CMP #114,R3 1S IT 
iste otis 001403 BEG. 41§ ;BR IF LOCAL 
144 110s meee MOM 
1448 O11 000763 BR 40$ ; TRY AGAIN 
1449 011032 OS2762 oO00002 o00004 41$: BIS #BIT1,4(R2) -SET BIT1 IN STAT 
14S0 011099 goods BR 16$ CONT 
1451 11042 OS2712 100000 9S: BIS #BITI1S, (Re) -SET BIT 1S IF CRAM 
1452 011046 104402 i6$: TYPE 
tHea Bribes Bouss? o12266 PORU pc INTTY rae Ete Gane Une 
1455 ot tbe 022703 000021 CMP #21,R3 .y" 
1456 011062 001417 BEQ 30$ a 
1457 011064 g22703 oo0022 CHP #22,R3 "2 
eis: sete poss 000116 aa #116,R3 "NN" 
1460 011076 001403 BEQ 32$ 
1461 011100 104402 TYPE 
1462 O11102 OOS6EE MOM s1F NOT A 1,2 OR N TYPE “?™ 
1463 O11104 000760 BR 16$ Y AG 
1464 011106 O0S2722 010000 323: BIS seIT12 (R2)+ SET BIT 12 IN STAT2 IF NO LU 
1465 Oll1l12 Geecee chp (R2)+, (R2)+ :POP OVER STAT2 AND STAT3 
14 11114 4 R 3 
1467 O11116 OSe712 o20000 31$: BIS #B1T13, (R2) ;SET BIT 13 IN STAT2 IF mg202 
tea ottiod § agrisd we I ASK IF LOOP-BACK ISON 
153 Bitis? eta 012266 5eh PC, INTTY ieee BE pt? 
1471 O1113e 000131 CMP #131,R3 ry 
1472 011136 001406 BEQ 17$ 
1473 011140 022703 oO0116 CMP #116,R3 :N 
1474 O11144 OO1406 BEQ 18S 
1475 O11146 104402 TYPE 
1476 011150 66 MOM :IF NOT Y OR N TYPE "2" 
1477 Oli 15¢ 909763 BR 30$ : TRY AGAI 
1478 011154 722 o40000 17$: BIS WBIT14,(R2)+ | :TURNAROUND IS CONNECTED 
1479 011160 o00402 BR 
14 Oli ibe 042722 o40000 18%: BIC #BIT14,(R2)+  ;NO TURNAROUND 
1481 O11166 198: 
1482 011166 104403 INSTR 
1483 011170 007016 
1484 011172 10440S PARAM 
1485S 011174 
1486 011176 37 
1487 011200 001254 TEMPY 
1488 011202 000 0 
1489 011203 001 “BYTE 1 
1490 011204 113722 001254 MOVE. TEMPY, (R2)+ :STORE SWITCH PAC IN MAP 
1491 O11210 104403 INSTR 
1492 Ollele 007054 
1493 011214 10440s PARAM 
1494 011216 900000 
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DZDME MACYL1 30(1046) 11-JUL-77 11:40 PAGE 31 PAGE: o0s0 
DZDME.P11 § 12-MAY-77 14:18 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
1 BEB BREE a 
4 4 MPY 
ig oH 000 .BYTE O 
te HES oe 001254 sByBe t 4, (R2)+ ITCH_PAC IN MAP 
teaa BLSSS Akasss i en BO Sven Stara 
1501 o11¢34 005337 001252 33S: DEC TERPS :DEC ONC COUNT 
1a BES BA oxom i i tad Pr 
1508 0112% 000137 011702 aus: I 138 + , on ia eens 
tebe BiiSee 815595 APPIFE  ooono4 my «ge ROGET i eI honeexiSta oe iFE Tie Sur 
ie Glee BETH * gD bc 
1208 Bt 11 BNE ia ei Pha’ Bo? 4. IF NO BIT 8 THEN NO DMCI 
1510 011272 005061 o00006 CLR 6(R1L) L 
151 O11676 905761 000006 TST (R1) ib Parte THEN DMRIC S/B =0! 
1512 O11 1165 BNE $ 
isis Gliaie gest oa ge 
1515 011314 012761 125252 000006 MOV #125252, 6(R1) at Ths TO SEL6 
1516 011322 052711 O20000 BIS #BIT13, (R1) 
1517 011326 022761 125252 O00004 CMP #125252, 4(R1) is UaIT TEN? 
1518 011334 001004 BNE 21 1$ F NO IT IS NOT CRAM 
1519 011336 OSe762 100000 000002 BIS #81T15,2(Re) T BITIS IF CRAM 
ial Glin Giotto ais: Aly etre a 
¢ B 
1253 pt 1328 piseet et 000006 MOV sPandt > bir) - Ree RUCTION IN SEL6 
1523 011360 012711 001400 MOV eBiratet Te (R1) :CLOCK INSTRUCTION CRIERO PROC PC TO 9) 
1524 011364 012711 002000 MOV BIT : OMO 
1525 011370 022761 ooc006 CMP 26,6 PERL) *IS IT LOCAL CROM 
1526 011376 OD1411 BEQ ‘BR IF YES 
1527 O11400 022761 O16520 conn CMP #16520,6(R1) *IS IT REMOTE CROM? 
1528 O11406 001410 BEQ ‘BR IF YES 
1529 011410 G22761 177777 oO00006 CMP #-1,6(R1) ?NO CROM? 
1530 O11416 OO1404 BEQ 225 :BR_IF YES 
1531 O11420 000516 BR 38 ;NOT A DMC 
1532 O1l422 OS2762 o00002 oonncE 23$: BIS 1T1,6(R2) :SET BIT 1 IN STA 
1533 “AT THIS POINT We Is ASSUMED THAT RI HOLDS A DMC11 CSR ADDRESS 
1534 011430 010122 223: MOV R1. (Re)+ ;STORE CSR_IN CORE TABLE. 
1535 011432 Ole711 001000 1S$: MOV #8tTS, (RL) ‘CLEAR LINE UNIT LOOP 
1536 011436 005061 O00004 CLR 4(R1) ;CLEAR PORTY 
1537 O11442 012761 122113 oo0006 MOV #122113,6(R1) | ;LOAD INSTRUCTION (CLR DTR? 
1538 O114SO 052711 oo0400 BIS #B1T8, (R1) *CLOCK INSTRUCTION 
1539 O11454 012761 O21264 op0006 MOV #021264.6(R1) ;LOAD INST 
1540 011462 052711 OO0400 BIS #BITS, (R1) :CLOCK INSTRUCTION 
1541 O11466 122761 000377 oD0004 CMPB #377, 4(R1) -1S IT ALL ONES? 
1542 011474 001003 BNE °BR IF NO 
1543 011476 052712 010000 BIS #BIT12, (R2) -IF YES, NO LINE UNIT, SET STATUS BIT 
1544 011502 000436 BR 
1545 011504 032761 o00002 oD0004 BIT #BIT1,4(R1) :IS SWITCH A ONE? 
1546 011512 001403 BEQ .+ R IF Me@20l 
1547 011514 OS2712 O60000 BIS #BIT13!BIT14, cre} -MB202 ASSUME CONNECTOR 
1548 011520 000427 BR ; CONNECTOR ON) 
1549 011522 032761 O00010 op0004 BIT #B1T3,4(R1) :IS MROY SET 
1550 011530 001023 BNE 20$ :BR IF 8201 NO CONNECTOR (ON LINE) 
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Y ) -JUL-77 11: 3 PAGE: 
RSME pil toomater? atte TBeNERSE UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 005! 
1851 011532 012761 000100 000004 nov eBITE,4CRL) ae PORTH 
000006 g 
1E8s OL Lee 711 ag6408 BIS tArra rye OCK TRetRuet Yoncser OTR) 
leee i ee A500 BIS teh 1 ean TRUCTION(READ MODEM REG) 
1558 pit 4 peseit Bp0040 oo0004 Bt a6 (Ry) tet iat 
1557 011572 O01402 BEQ :BR FE NO CONNECT OR 
1558 g1iS74 12 040000 BI e814, (R2) ise TATUS BIT FOR CONNECTOR 
1559 011600 72 20s: 7S R 
1560 011602 012761 021324 O00006 MOV #021324,6(R1) PUT INSTRUCTION IN PORT 
Tee> Oiiels seeiee  Spngey BO, SeLTPIGLTG, (RL) GPORTIH IS re» IN TALE 
1285 011620 bisvel 021344 000006 MOV #021344. 6(R1) jPORTE* INSTRUCTION 
1564 011626 012711 001400 MOV #B1T8!BIT9, (R1) :CLOCK INS 
1565 011632 156122 OO0004 BISB 4(R1),(Re)+ : STORE ers ADD IN TABLE 
1566 011636 005722 TST (R2)+ ; POP OVER STAT 
1567 011640 005011 CLR (R1) “CLEAR ROMI 
1568 011642 005237 001310 INC DMNUM TE DEVICE of OUNTER 
1569 011646 022737 000020 001310 CMP #20, DMNUM SARE MAK, NO. OF DEV FOUND? 
1570 O116S54 001412 BEQ 13$ “YES DON’T LOOK FOR ANY MORE. 
1571 011656 O0S011 3S: CLR (RL) ‘CLEAR BIT 10 
1572 011660 005061 oo0006 CLR 6(R1) ‘CLEAR SEL é 
1573 011664 062701 000010 14$: ADD #10,R1 “UPDATE CSR POINTER ADDRESS 
1574 011670 022701 164000 CMP #164000, R1 
1575 011674 001402 BEQ 13$ :BR IF DONE 
1576 011676 000137 011264 IMP 2s : JUMP IF NOT 
1577 011702 005037 001306 13$: CLR DMACTY 
1578 011706 005737 001310 TST DMNUM ;WERE ANY DMC11’S FOUND AT ALL? _ 
1579 011712 001423 BEQ S$ ‘ERROR AUTO SIZER FOUND NO ORC11°S IN THIS SYS. 
1580 011714 013701 001310 MOV DMNUM, R1 
1581 011720 010137 001314 MOV R1, SAVNUM ;SAVE NUMBER OF DEVICES 
1582 011724 1 4g: CLC 
1583 011726 006137 001306 ROL DMACTV ; GENERATE ACTIVE REGISTER OF DEVICES. 
1584 011732 001306 INC DMACTV :SET THE BIT 
1585S 011736 1 DEC R 
158 011740 001371 BNE 4 ;BR IF MORE TO GENERATE 
1587 011742 012737 oO00006 o00004 MOV #6, 084 “RESTORE TRAP VECTOR 
1588 011750 013737 901306 001312 MOV DMACTV, SAVACT ;SAVE ACT IVE REGISTER 
1589 011756 000137 012010 IMP MAP :GO FIND THE VECTOR NOW. 
1590 011762 104402 005760 S$: TYPE MERR2 :NOTIFY OPR THAT NO DMC11°S FOUND. 
1591 011766 CLR RO : MAKE bara LIGHTS ZERO 
1592 011770 900000 HALT ‘STOP THE SHOW 
1593 011772 BR 2 ‘DISABLE CONT. SW. 
1594 011774 012716 011664 6S: MOV #14S, (SP) ‘ENTERED BY NON-EXISTANT TIME-OUT. 
159 012000 RTI ‘RETURN TO MAINSTREAM 
1597 012002 000001 WHICH: 1 
1598 012004 002 002 .BYTE 2,2 
1599 012006 001256 TEMPS 
1601 012010 000001 001236 VECMAP: BIT #SWOO, STRTSW 
1602 O12016 001114 BNE 
1603 012020 012737 op0340 oDD022 MOV #340, 2822 ;SET I0T TRAP PRIO TO 7? 
1604 012026 012737 Olez02 o00020 MOV 84S, 820 :SET IOT TRAP VECTOR 
1605 012034 Ole702 001500 MOV #0M! mae. Re :SET SOFTWARE POINTER 
1606 012040 612700 000300 MOV #300, RO’ ‘FLOATING VECTORS START HERE. 
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DZDME MACYL1 30(1046) 11-JUL-77 11:40 PAGE 33 PAGE: cose 
DZDME.P11  12-NAY-77 14:18 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
1607 012044 012701 000302 MOV #302, R1 iPC OF I 
1 b1g89 19420 1S: HOV Ri. (BO) START ring SECTOR AREA 
000004 MOV #4’ (R1)+ ;WITH 
eit Een Pate : 001000 nd) +  (RL)+ sROD 2 TORO +R 
eis BES IO cas onion Re ew ron foe (eI 
ae ; 
tele bishrd 103083 BuLeHe mt oe : z BRING aL OD arr 
1616 012102 012704 o00012 MOV #12,R4 +R iE INDEX GISTER 
1617 Olel06 016437 Ol2eSe 177776 MOV BRLYL(R4Y),PS § ;SET PS TO 
1618 ot 114 011201 MOV (Re), RI 
1619 Olell6 0612761 000200 O00004 MOV #200'4(R1) 
1620 012124 012711 001000 MOV #61T9, (R1) ;SET ROMI 
1621 012130 012761 121111 000006 MOV #121111,6(R1) | ;PUT INSTRUCTION IN PORTE 
l622 012136 Ole711 001400 MOV #81T9!BtTS, (RL) :FORCE AN INTERRUPT 
1623 Olel4¥2 105200 7$: INCB RO : STALL 
1624 012144 001376 BNE 2 FOR TIME TO INTERUPT 
1625 01214 162704 o00002 SUB #2,R4 ;GET NEXT LOWEST PS LEVEL 
1626 Ol2e1S2 001404 BEQ 6$ *BR IF R4Y = 0 
1627 012154 016437 Ol22S52 177776 MOV BRLVL(R4),PS § ;MOVE NEXT “LOWER LEVEL IN PS 
1628 Ol2lbe2 g00767 BR *BR TO DELAY 
1629 012164 00S300 opc002 6$: BIS #5300, 2(R2) !NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX DMC! 
1630 012172 OO0SO11 33: CLR Rl) ;CLEAR ROMI 
1631 012174 O62702 o00010 ADD #10,Re ‘POP SOFTWARE POINTER 
1632 Ol2200 000735 BR 2s ‘KEEP GOING 
1633 Ol2ed2 OSib62 oo00002 4S BIS (SP), 2(Re) GET VECTOR ADDRESS 
1634 012206 042762 ooo002 BIC #7, 2(R2) “CLE 
1635 O12214 O1640S 012254 MOV BRLVL+2(R4),RS GET BR LEVEL OF OMC11 
1636 Ol22e0 006305 ASL RS SHIFT LEVEL 4 PLACES 
1637 Ol2ee2 006305 SL RS TO THE LEFT FOR THE 
1638 Ole2e4 006305 ASL RS STATUS TABLE 
1639 Ol22eh 006305 A RS 
1640 012230 O4270S 170777 BIC #170777,RS “CLEAR UNWANTED BITS 
1641 012234 OSO0S62 Oo00002 BIS RS,2(Re} ‘PUT BR LEVEL IN STATUS TABLE 
1642 0122040 O22626 CMP (364 op)+ :POP IOT JUNK OFF STACK 
1643 Olee42 O12716 012172 MOV $, (SP) :SET FOR RETURN 
1644 Olee46 oo0002 RTI 
1645 Ol2e250 000207 S$: RTS PC ALL DONE WITH “AUTO SIZING” 
1647 O122S2 op0000 BRLVL: 0 LEVEL 0 
1648 Ole254 000000 0 LEVEL O 
1649 Ole2s6 000200 200 LEVEL 4 
1650 012260 o0024 240 LEVEL 5 
1651 Ol2262 000300 300 LEVEL 6 
1652 Ole264 000340 340 LEVEL 7 
te 
1655 ol2 105777 166712 INTTY: STB  aTKCSR WAIT FOR DONE 
1656 Ol2e72 100375 BPL - 
1657 O01 017703 166706 MOV JTKDBR,R3 ;PUT CHAR IN R3 
1658 012300 105777 166704 TSTB = aTPCSR :WAIT UNTIL PRINTER IS READY 
1659 012304 100375 BPL 4 
1660 012306 010377 166700 MOV R3, JTPDBR sECHO CHAR 
1661 Ole3i2 042703 o00240 BIC wBiT7!BITS,R3 :MASK OFF LOWER CASE 
1662 012316 000207 RTS PC : RETURN 
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DZDME.P11 12-MAY-77 14:18 GENERAL UTILTTIES (TYPEOUT, ERROR, SCOPE, ETC) 

1663 

1664 02100 

ieee 

1667 + HHMMHHHHMMHHHHMMEHHHEEi TEST ] Seteeeeeeee esate eeeeetee st 

1668 :#0UT CONTROL REGISTER | READ/ONLY TES 

1863 :#00_A MASTER CLEAR Bi ALL READ/ONLY 

1670 :#BITS ARE IN THE RORRECT 

1674 see eeceeHsPhesenueeeSuSeneTEREEEREHERESHANESESESSSEREREEEEE 

1673 ; TEST 1 

1675 012320 012737 000001 001226 TST1: Mov #1, TSTNO 

1676 Ole326 Cle737 012374 OOl2is MOV eTST2, NEXT 

1877 Rl CONTAINS BASE DMC11 ADDRESS 

1678 012334 005077 167044 CLR @DMCSR ‘CLE SLO 

1679 012340 O12702 000011 MOV #11,Re :SAVE Re FOR TYPEOUT 

1680 012344 104414 ROMCLK ‘NEXT WORD OF INSTRUCTION, ROMCLK PC=S304 

1681 012346 Gel224 021004! <20#11> *PORTY*LINE UNIT REG 1 

1682 012350 016104 OO0004 MOV 4(R1),R4 :PUT “FOUND” IN RY 

1683 012354 O42704 O00054 BIC 4 RG : CLEAR UNKNOWN ‘Bt 

1684 012360 O1e70S 000020 MOV #20.R5 “PUT "EXPECTED" IN RS 

1685 012364 1 CMPB RY ;15 QUT READY SET? 

1686 012366 901401 BEQ 1§ YES 

1687 012370 104002 HLT 2 “ERROR IN LU 1 

1688 012372 104400 1S: SCOPE :SCOPE THIS TEST 

1690 

1691 ; SESE SAE RARE RERESEEEEEEEEE TEST O SeSERESSESESER REELS ER ERATED 

1632 :#IN CONTROL REGISTER READ/ONLY TEST 

1693 :#00 A MASTER CLEAR VERIFY THAT ALL READ/ONLY 

[6 :*#BITS ARE IN THE CORRECT 

te4 eee eee i setesnecScensesyenesseenseunennauenereseeeeeezees 

1692 ; TEST 2 

1699 012374 912737 o00002 001226 TST2: ov 2, TSTNO 

1700 Ole402 0120737 Ole44e O01216 MOV aFaT3. NEXT 

1701 ;R1 CONTAINS BASE DMC11 ADDRESS 

1702 012410 O12702 ooo012 MOV #12,R2 :SAVE Re FOR TYPEOUT 

1703 012414 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1704 012416 O21244 021004! «20#12> :PORTY¢LINE UNIT REG le 

1705 012420 O16104 o00004 MOV 4(R1),R4 “PUT “FOUND” IN RY 

1706 012424 O42704 000017 BIC #17,R4 *CLEAR UNKNOWN BITS 

1707 012430 oos005 CLR BS ‘PUT “EXPECTED” IN RS 

1708 O1e432 120504 CMPB sé, RI ‘ARE ALL BITS CLEARED? 

1709 012434 001401 BEQ 1§ :BR IF YES 

1710 012436 104002 HLT 2 ‘ERROR IN LU le 

1711 012440 104400 1S: SCOPE :SCOPE THIS TEST 

1713 

1714 PEEL RERLEEEALES SESSA RE REESE TEST 3 eeeeeeeeeeeeeeaeeaeeserease 

1715 '#MODEM CONTROL REGISTER READ/ONLY TES 

I71é #00 A MASTER CLEAR. VERIFY THAT ALL READ’ONLY 

1717 4817 S ARE IN THE CORRECT STATE 


i718 + PELERELERESSLEERESLER EES SSRARERERERRRERSAAAPARAAEARAARPS ATLL? 
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MACY11 30( 1046) gh tgiue-?? 11:40 PAGE 35 PAGE: o0s4 
12-MAY-77 14:18 LINE UNIT READ/ONLY TESTS 
; TEST 3 
012442 012737 001226 TST3: MOV #3, TSTNO 
012450 012737 012514 901216 MOV aTST4, NEXT 
;R1 CONTAINS BASE DNCLI ADDRESS 
012456 104412 MSTCLR MASTER CLEAR DMC11 
012460 012702 000013 HOV #13,R2 s VE Re FOR TYPEOUT 
012464 104414 ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
012466 021264 Ge1004! «20813 :PORTY*LINE UNIT REG 13 
012470 016104 900004 MOV :PUT “FOUND” IN RY 
012474 642704 000213 BIC re aA Bat Sore UNKNOWN BITS 
012500 012705 000100 MOV #100'RS PUT “EXPECTED” IN RS 
012504 120504 CMPB e JR4 ARE RING, DTR, AND MODEM READY SET? 
012506 901401 BEQ 1$ :BR IF YES 
012510 104 HLT 2 ‘ERROR IN LU 13 
912512 104400 18 SCOPE : SCOPE THIS” TEs 
Jette aes te tt tt TEST 4 RHRRRRERLSSLAS SEES ES SESE SES 
; #MAINTENANCE REGIS R READ/ONLY TEST 
#D0_A MASTER C 1eAeerY THAT ALL READ/ONLY 
:#BITS ARE I LER RECT 
eee ee esnarctececcsseuresrsueeaaunauagantsnsteercesnesssess 
; TEST 4 
012514 012737 O00004 001226 TST4: MOV #4, TSTNO 
012522 012737 Olebls OOlelé MOV #TSTS, NEXT 
R1 CONTAINS BASE DMC11 ADDRESS 
012530 104412 MSTCLR :MASTER CLEAR DMC 11 
012532 012702 000017 MOV #17,R2 :SAVE Re FOR 
012536 104414 ROMCLK ‘NEXT WORD IS INST RUCTION, ROMCLK PC=S304 
012540 021364 021004! «20817» :PORTY*LINE UNIT REG 1 
012542 016104 oo0004 MOV 4(R1) *PUT “FOUND” I 
012546 042704 o000206 BIC #20 RY “CLEAR UNKNOWN BITS 
0125S2 012705 000051 MOV #51,85 :PUT "EXPECTED" IN RS 
012556 1032737 920000 001366 BIT seiti3, STATI ‘IS LU AN M@eO2 OR M8201? 
012564 001004 BNE 2 ‘BR IF 
012566 032737 O40000 001366 BIT #BIT14,STAT1 | CONNECTOR??? 
012574 001004 BNE 3$ ‘BR IF M8201 WITH CONNECTOR 23 
012576 042704 o00040 2s: BIC #40, R4 "MASK OFF SI BIT IF M8cO2 OR MB201, NO CONNECTOR 
O1eb0e 042705 o00040 - BIC #BITS,RS :S] BIT IS UNKNOWN 
012606 12 CMPB ss RS, Rv ;ARE SI AND ICIR SET? 
012610 001401 BEQ 1$ ‘BR IF YES 
Oleble 104002 HLT 2 ‘ERROR IN LU 17 
012614 104400 1S: SCOPE ‘SCOPE THIS TEST 


ge yr ppt TEST S SHRRREERESERERERERRARESRERE 


vac EAR BITS IN LU 


GISTER WRITE/READ TEST 
ISTER 12, VERIFY 
REGISTER le 


IT IS SET 
VERIFY IT IS CLEAR 


Mee ere ccsbnentcsccnccarbosnesencnesssertscsensenonennees 
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DZDME MACYL] 30(1046) Li-JUL-77 11:40 PAGE 36 PAGE: OOss 
DZDME.P11 12-MAY-77 14:18 LINE UNIT WRITE/READ TESTS 

12 : aes 

1777 012616 012737 O0000S o01226 TSTS: MOV #5, TSTNO 

1778 Oiebe4 b1e73? 012756 O0lel6 MOV aT Tb, NEXT 

1778 Ol le737 Ole646 001220 MOV LOCK 

Hal gia ow nstun SAG ils cx or 

128 pise ys jos 000012 ey #12,R2 We. REGISTER AbORESS FOR TYPEOUT 

1783 012646 012761 oO0CO4O 900004 1S: MOV #40,4(R1) 

1784 Olebss 104414 ROMCLK REXT HORD * Is INSTRUCTION, ROMCLK PC=S304 
1785 012656 1l22lle le21le Teits IN l2 

1786 012660 104414 ROMCLK Set WORD ts” INSTRUCTION, ROMCLK PC=S304 
1787 Olebbe 021245 021245 : READ 

1788 012664 012705 oo0040 MOV PUT “EXPECTED” IN RS 

1789 012670 116104 000005 MOVB aig, Rs RY :PUT “FOUND” IN 

1790 012674 042704 000337 BIC #337, R4 : CLEAR UNWANTED BITS 

17391 012700 120804 CMPB eR RG iS BITS ger” 

eas B1S704 ToH003 at § ERROR, IS NOT SET 

1794 016708 104901 2s: SCOP an ar (SWO9=1 ) 

1795 Ole7i 12737 012716 901220 MOV #3$, LOCK 

irae pi5o38 —— ms BA MRL LORD S INSTRUCTION, RONCLK PC=S304 

5 . = : 

13a BtS555 le2ile leeil2 Ck Stay 

1793 012726 14 ROMCLK NE yon is SNET RECTION, ROMCLK PC=S5304 
l 1 021245 

1801 012732 CLR RS : PUT “Perec TER IN RS 

1802 012734 116104 oo000S MOVB = S(R1), R4 spUl “FOUND” IN RY 

1803 012740 042704 000337 BIC #337, R4 CLEAR UNWANTED BITS 

1804 012744 1205 CMPB sR, RG Ts BITS CLEAR? 

1805 012746 001401 BEG 4§ F YES 

1806 012750 194003 HLT 3 TERROR, BITS of M0, NOT CLEAR 

1807 Ole7Se 104401 4$: SCOP1 :SCOPE SUBTES I) 

1898 012754 104400 SCOPE :SCOPE THIS Sespe 

1810 

1811 ; RRRRERRERRRAEEERSREREEEERY TEST © RREREEEERERA EERE ER EEE EEEE 
1812 iH UNIT REGISTER WRITE/READ EST 

1813 :#SET BITL IN LU REGISTER 17, VERIFY IT IS SET 

1814 ace BIT] IN LU REGISTER 17, VERIFY IT IS CLEAR 

ttt s EEESERESERERRSSALA ESSER: AR AR ee: 
1817 ; TEST 6 

1819 012756 012737 O00006 oddlecs TSTb: MOV STNO 

1820 012764 012737 O13116 OOlel6 MOV sears NEXT 

1821 912772 012737 O13006 oO01220 MOV #13, LOCK 

1822 ;R1_ CONTAINS BASE DMC11 ADDRESS 

1823 013000 104412 MSTCLR MASTER CLEAR 

1824 613002 Ol2702 900017 MOV 817.Re : SAVE REGISTER ADDRESS FOR TYPEOUT 

1825 013006 012761 000001 occo004 1S: MOV #1,4(R1) : LORD PORTY 

1826 013014 104414 ROMCLK NEXT WORD Is INSTRUCTION, ROMCLK PC=5304 
1827 013016 122117 122117 SET BIT1 IN LU-17 

1828 013020 104414 ROMCLK :NEXT WORD _ "s INSTRUCTION, ROMCLK PC=S304 
1829 013022 021365 021365 D 

1830 913004 612705 ooco01 MOY #1,R5 BUT “EXPECTED” IN RS 


DZDNE | MACYI1_30( 104g) 
DZDME.P11 12-MAY-77 14 
1831 013030 116104 
183¢ O13034 042704 
184 13042 O01901 
1835 013044 104003 
1836 01304 104401 
1837 013050 012737 
1838 013056 005061 
1839 013062 109414 
1840 013064 122117 
1841 013066 104414 
1842 013070 021365 

1843 013072 

1844 013074 116104 
1845 013100 0427 
1846 913104 1 

1847 013106 OO1401 
1848 013110 104903 
1849 O13112 104401 
1850 013114 104400 
1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 013116 012737 
1862 013124 012737 
1863 013132 012737 
1865 013140 104412 
1866 013142 012702 
1867 013146 012700 
1868 013152 

1869 013152 010061 
1870 013156 O42761 
1871 O13164 104414 
1872 O13166 122113 
1873 013170 104414 
1874 013172 021265 
1875 013174 O1 
1876 013176 042705 
1877 013202 116104 
1878 013206 042704 
1879 013212 120504 
1880 013214 001401 
1881 013216 104003 
1882 013220 104401 
1883 013222 00241 
1884 013224 106100 
1885 0132206 001351 
1886 013230 012737 
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000505 
000376 


013056 
oooco4 


oo00cs 
000376 


013iSe 


000013 
000001 


000004 
000257 


013244 


001220 


001226 
001216 
001220 


000004 


001220 


2s: 
3$: 


4$: 


TST?: 


64$: 


653: 


EQS 


LINE UNIT WRITE/READ TESTS 


S(R1),R4 
#376, R4 
RS,R4 
2s 

3 


83S, LOCK 
4(RL) 


PAGE: 


;PUT “FOUND” IN R 
: CLEAR weeee BITS 
1S ert 


ERROR, BIT 1_IS_NOT SET 
Ren Se T (SWO9=1) 


Fr 34i PORT4 

NEXT WORD IS ge epee ROMCLK PC=S304 
; CLEAR Bh" t INL 

sexy Min is INSTRUCTION, ROMCLK PC=S204 


md * A 
:PUT “EXPECTED” IN RS 
;PUT IN RY 
;CLEAR FONWANTED BITS 
:1S BIT1 CLEAR? 
BR IF YES 
SERROR, BIT1 IS NOT CLEAR 
"SUBTEST (SWO9=1) 
‘SCOPE THIS TEST 


7 SHH HEEEEEE EEE EE REEE TEST arama seespnicienrnaanress 


: #FLOAT A 1 THROUGH LI 


=~ 


ete A O THROUGH LINE UNIT REGISTER 13 
2 SEREREREREERRER EERE EERE REEL ERE RL EERE RRERALAL ESAS ESE ERE EEE 


; TEST 7 

Mov TNO 
MOV erario NEXT 
MOV #64S, LOCK 
MSTCLR 

MOV #13,Re2 
MOV #1,R0 
MOV RO,4(R 

#257, aR 

ROMCLK 

12100! 13 
21005! <13%20> 

MOV RO.RS 
BIC 267° RS 
MOVB 5(RIS,R4 
BIC 257, R4 
CMPB eS RG 
BEQ 5$ 
HLT 
SCOP! 
SLC 
ROLB RO 
BNE ot 
MOV #67$, LOCK 


;R1_ CONTAINS wood ates ADDRESS 
;MASTER CLEAR 

:SAVE_ REGISTER ADORESS FOR TYPEOUT 
:START WITH BIT O 


:PUT PATTERN INTO PORTY 
?CLEAR UNWANTED BITS 

!NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
ney DATA TO IBUS REGISTER 13 


T WORD IS INST RUCTION ROMCLK PC=5304 
READ FROM IBUS REGIS TER {3 


NEW SCOP 1 


OOSE 


FOS 


02 MACY11 30(1046) 1i-JUL-77 11:40. PAGE 38 PAGE: 0057 
DIDME.P11  12-MAY-77 14:18 LINE UNIT WRITE/READ TESTS 

1887 013236 012700 000001 MOV #1,RO :START WITH BIT O 

1888 013242 005100 69$: COM RO :CHANGE TO FLOATING ZERO 

1860 St3544 10061 et yD PUT PATTERN INTO PORTH 

isa Bis puooet Bpbees 000004 BIC #287, 4(R1) ‘CLEAR UNWANTED BITS 

1892 013256 104414 ROMCLK NEXT ata Ais RUC RUCTION ROMCLK PC=5304 

1893 013260 122113 122100!13 :MOV DATA T TER 13 

igs tie ise Re PRS BENE St PO 

ieee btasee 8 gAgdst cles PUT EXPECTEBUIN Ree 

ibe Gen Ten Bie Rive faite, SUE Be 

1899 Bt Sh Rea 000257 re. Gc Roce Ry :CLEAR UNWANTED BITS 

1900 013304 120504 CMPB sé. RG :DATA CORRECT? 

1901 013306 00140) BEQ 68$ -BR IF YES 

1902 013310 104003 HLT ERR 

1903 013312 104401 68: SCOP1 : SWO9=1? 

1904 013314 O05) CoM RO ‘CHANGE TO FLOATING 1 

1905 013316 o00c4 CLC :CLEAR CARRY 

1906 013320 196100 ROLB RO ‘SHIFT BIT IN RO 

1907 013322 001347 BNE 69S !IF RO=0 THEN DONE 

1908 013324 104400 SCOPE :SCOPE THIS TEST 

1919 

1811 ; RERESEAELELLEREREERRESELELE TEST 10 RELLLELALERELAFS ASSES ELSES 

1912 1% UN GISTER WRITE/RE 

1913 :#FLOAT A 1 THROUGH LINE UNIT Re CTSTER 4 

1914 :*FLOAT A O THROUGH LINE UNIT REGISTER 

eth SEFHALLSLARELASAAALALARAAASRSLALSAARELA SSAA LAAAESRERFFSAERLELSEE 

1312 ; TEST 10 

1919 oO1 012737 O00010 001226 TST10: Mov TSTNO 

1920 913334 012737 913502 9001216 MOV aot NEXT 

1921 013342 012737 013362 OO1220 MOV #64, LOCK 

1922 sR1 CONTAINS BASE DMC1i ADDRESS 

1923 013350 104412 MSTCLR !MASTER CLEAR DMC11 

1924 013352 012702 ocoo14 MOV #14, R2 :SAVE REGISTER ADDRESS FOR TYPEOUT 

1386 013356 012700 000001 set MOV #1,R0 :START WITH BIT O 

1927 013362 010061 OD0004 MOV RO,4(R1) :PUT PATTERN INTO PORTH 

1928 013366 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 

1929 013370 122114 122100!14 !MOV DATA TO IBUS REGISTER 14 

1930 013372 104414 ROMCLK ?NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1931 013374 021305 21008! < 14420) FROM IBUS REGISTER {4 

1932 013376 010005 MOV RS :PUT EXPECTED IN 

1933 013400 116104 oo000S MOVB Cee RY -PUT “FOUND” INTO RY 

1934 013404 120504 CMPB sR R44" :DATA CORRECT? 

1935 013406 00140! BEQ 65$ :BR I 

1936 013410 104003 HLT 3 ERR 

1937 013412 104401 6S5$:  SCOP1 :SWO9=1? 

1938 013414 O00241 CLC :CLEAR CARRY 

1939 013416 106100 ROLBSs«aRO :SHIFT BIT IN RO 

1940 013420 001360 NE 64S !IF RO=O0 THEN DONE 

1941 013422 012737 013436 oO01e20 MOV 867%, LOCK :NEW SCOPL 

1942 613430 012700 oc000! MOY #1,RO :START WITH BIT O 


SE ot 
re 
ie 


1947 


LAPELPRRERRARARRRRRL 2 


R 
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BRRae es 
Vig FB585 


Rey 
Botta 
Fist 


LU) 
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Oo 


BOR? BS 


rattattty 
ORL 


012737 
012737 


013560 104412 
01356e 
013564 021344 


013544 
013552 
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ooc004 


cocoons 


000011 
013544 


ooo004 


001370 


000012 
013606 


11:40 PAGE 
LINE UN 


OCiees 
COleisb 


001226 
O0i2le 


9 PAGE: 
3 WRITE/READ TESTS 
698: COM RO :CHANGE TO FLOATING ZERO 
(3: 
MOV RO,4(R1) ;PUT PATTERN INTO PORTY 
ROMCLK XT WORD IS INST RUCTION ROMCLK PC=5304 
122100!14 MOV DATA TO IBUS REGISTER 14 
OMCLK ‘NEXT WORD IS INSTRUCTION ROMCLK Pc=5304 
21005! <14#20> :READ FROM IBUS REGISTER {4 
MOV RO.RS ‘PUT EXPECTED IN 
MOVB  5(R1),R4 :PUT “FOUND” INTO RY 
CMPB = RS. R4 -DATA CORRECT 
BEQ 6a$ :BR IF YES 
HLT 3 :E 
68$: SCOP : SWO9=1 
COM RO : HANGE, TO FLOATING 1 
CLC :CLEAR CARRY 
ROLB RO ‘SHIFT BIT IN RO 
BNE 6 !IF RO=0 THEN DONE 
SCOPE ‘SCOPE THIS TEST 
5 LESS ELESLAASERA ERLE EERE LES TEST L] SRRRRRRRLESE ESE LES ESSE E5444 
:xSWITCH PAC TEST 
:*#THIS TEST READS SWITCH PACS 
s#THIS SWITCH PAC CONTAINS THE DDCMP LINE # 
seb sanadaboonngensonsaadansensnnenneoacnnsasensenuecenseusens 
s Test 1) 
TSTl1: Mov #11, TSTNO 
MOV eTST12, NEXT ® 
3R1 CONTAINS BASE DMC11 ADORESS 
MSTCLR MASTER CLEAR DMC11 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021324 :PORTHeLUL 15 
MOV 4¥(R1),R4 : PUT FOUND” IN RY 
MOVB = STAT2. RS :PUT “EXPECTED” IN RS 
CMPB sea, RY :SW OK? 
BEG 1$ :BR IF YES 
LT 31 'ERROR, SWITCH PAC READ ERROR 
18: SCOPE :SCOPE THIS TEST 
ae TEST 12 RRRSHRSSSERRARER EES EREEE 
H 
ee S TEST READS SWITCH PACS? 
:#THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD 
s SLSRELAALSAARALALSLAALAALRASALAAAERARAALAARALRAELESLTATLAARELSLE 
; TEST 12 
TSTl2: Mov #12, TSTNO 
MOV 8TSt13,NEXT 
;R1 CONTAINS BASE OMCL! ADDRESS 
MSTCLR :MASTER CLEAR DMC11 
ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
021344 :PORTH*LUL6 


GOS 


ocss 
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013566 
013$7e 
pi 3978 
013602 
013604 


013706 
013714 


013722 
013724 
015730 


016104 
113705 


012737 
012737 


igs 


104400 


012737 
012737 


104412 
012711 
012761 


000004 
001371 


000013 
013706 


001416 


ooo0de 


001416 


001416 


oocode 
001416 


000014 
014006 


004009 
oc0001 


ll-JUL-77 
:18 


001226 
001216 


009004 


099004 


001226 
O0i216 


oocoo4 


11:40 PAGE 40 
LINE UNIT WRITE/READ TESTS 


1$: 


TST13: 


1$: 


23: 
33: 


4§: 


TST14: 


HOS 


PAGE: 
MOV 4(R1),R4 T “FOUND” IN R 
MOVB STAT2+1,R5 t PUT “EXPECTED” IN RS 
CMPB RS,R4 i W OK? 
BEQ 1$ IF YES 
HLT 31 ‘ER ROR, SWITCH PAC READ ERROR 
SCOPE : SCOPE” THIS TEST 


Seba t-iabrtet-t-tah-ta-t-irla-+-bt-taelalalae TEST 13 HERERERSLSSESSSESE SESE ESESS 
*#LINE UNIT CLOCK TEST 
SSTHIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 
“(BIT 1 IN LU-17) IS WORKING 
© SSAA REE R EERE AEE SERA EE EERE E EEE EEE EE EE 


; Test 13 


Mov #13, TSTNO 
MOV #TST14, NEXT 


1 CONT NS BASE DMC11 ADDRESS 
MSTCLR iRAste ele aR DMC11 

CLR TEMP + PREPARE CHER DELAY 

ROMCLK WORD IS INSTRUCTION, ROMCLK PC=S304 
Rots Pa raat, 

BIT #2,4(R1) 21S CLOCK BIT SET? 

BNE 2s BR IF YES 

INC TEMP 

BNE 1$ ; DELAY riniSHED ? 

HLT 4 ;ERROR BIT 1S STUCK CLEAR 

CLR TEMP !PREPARE FOR DELA 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK >c=S2304 


att #2,4(R1) wa cock K BIT CLEAR? 
4$ 2 ae YES 


INC TEMP SDELA 
BNE 3$ :BR tr DELAY NOT DONE 
okies 4 SERROR BIT IS STUCK SET 


rag 497 1 ee TEST 14 HeeeeeRRRESERERARAEAE TASES 
sgt ay RP es 


iSVERIFY, reat OgoR SET, TINDICATING THAT THE 
;#CHARACTER IS T OF THE OUT SILO 
+ LLSEEAEEEEREEREAEEERREA SE REEEERERARRALEASRESERRALL LAT ERAREELEE 


; TEST 14 
hov #14, TSTNO 
MOV #TST1S,NEXT 
:R1 CONTAINS gonse 0 OMC11 ADDRESS 


MSTCLR :MASTER CLEAR 
MOV #BIT11, (RL) ;SET LINE UNIT OF 
MOV #1,4.R1) ;LOAD PORTY WITH BITO 


00s3 


105 
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ops 338 ROMCLK xT Horo IS INSTRUCTION, ROMCLK PC=5304 
? ot 742 ee f iat Ea INSTRUCTION, ROMCLK PC=5304 
She_ Bissug {S2ii0 tSerT0 Sed oP oe 8718 
at bt aees 105708 oor awe 17 R2 Say ESS FOR TY 
1 O1 109414 ROMCLK ; es a, 5 TRE TRUCE ION, ROMCLK PC=5204 
See lure gig) gan Ba wayne PU Paine gy 
ee ip 
sped 13766 nee of 357 BIC te? AG : CLEAR SUNONTED BITS 
Se lime yam am, Bye iota 
2067 014000 001401 BEQ ‘Be IF YES 
14002 104005 HLT r 
2069 014004 1S: 
2070 014004 104400 SCOPE ;SCOPE THIS TEST 
2072 
2073 ERE ER EREEEEEEEEEE TEST 15 £HREEREREEER SAREE ESSE EELS 
2074 ; #DOCHE TEST OF RTS AND QUT IV 
2075 :%SET SOM AND LOAD OUT DATA SILO 
2076 HESINGLE” STEP 2 DATA CLOCKS VERIFY 
2077 ;#THAT RTS AND ACT IVE ARE SET 
as 5p AEE EERE EE REEL EEEEEERERSRRE SEER REEL EE EEE EEE EES 
2080 ; TEST 15 
e082 O14006 012737 o0001S5 001226 TST1S: MOV #15, TSTNO 
2083 O14014 012737 O14144 OO01216 MOV #TST16, NEXT 
2084 :R1 CONTAINS BASE DMC11 ADDRESS 
2085 o14022 104412 MSTCLR le CL Pa R ORCL 
2086 014024 012711 oo4c00 MOV #B1T11,(R1) T LINE 
308? 614030 012761 900001 oo0004 MOV #1, 4(R1) Bara it TH oot 
1 109414 ROMCLK ies WORD 1S INSSRUCTION, ROMCLK PC=5304 
2089 O14040 122111 122111 :S 
2030 O14 2 104414 ROMCLK : NEXT OORO IS INSTRUCTION, ROMCLK PC=S304 
1 Ol 122110 lee110 *LOAD OUT DATA SILO 
2092 014046 737 926350 JSR PC, OCOR ;WAIT FOR _OCOR 
2093 O1408e 104415 o00002 DATACLK, 2 *CLOCK DATA FOUR TIMES 
20% O14056 012702 000011 MOV #11,R2 ‘SAVE ADDRESS FOR TYPEOUT 
2095 014062 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
2036 014064 021224 021224 :PORTH¢LU 11 
14066 016104 ooo004 MOV 4(R1L) RY :PUT oF OUND I 
2098 014072 O42704 000257 BIC #257,.R4 :CLEAR UNWANTED BITS 
2099 014076 012705 000120 MOV #120.R5 : PUT "EXPECTED" IN RS 
2100 O14102e 120504 CMPB 3s RS, RG :1S ACTIVE SET? 
2101 O14104 O01401 BEQ 1$ :BR IF YES 
si03 OID wr A metals Poe 
2104 O14110 012702 090013 MOV #13,Re ;SAVE ADDRESS FOR TYPEOUT 
2105 O14114 104414 ROMCLK : NEXT WORD 15 INSTRUCTION, ROMCLK PC=5304 
2106 O14116 021264 021264 :PORTH*LU 13 
2107 014120 016104 oop0004 MOV 4(R1),RY ;PUT IpNPECTED IN RY 
2108 014124 042704 000337 BIC #337, R4 AR UNWANTED 
2109 014130 012705 000040 MOV #BITS,RS PUT. TEXPECTED™ IN RS, RTS SHOULD BE SET 
2110 614134 120504 CMPB sR, R4 :IS RTS 0 
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SH Bisbee Yeats 


BiMi4e 194400 


= b= 
WD NIMUI£ UW) 


7 


Fiabe 


=~ 


rerorururorurororuporurururururororurnorurufururururururforururulru fororururururururufururururururururururururu 
Oo 
_— 
—OR ee Oe 


* b= be bb bb bb b= 0 0 0 bs 0 0 0 0 0 0 0 bb bh bb = bo 2 bh b= be he hh ham 


BREA coho Seo Or UN ELF oD ORO £ CaO ODED NON PeahO eB NOeUn ee arue eo 
: 
R 


000016 
014342 


Bodd0 


000013 
ooo004 
000337 


000011 


oooc04 
000020 


001226 
001216 


900004 


000004 


11:40 PAGE 42 


JOS 


PAGE: 


BASIC TRANSMITTER TESTS 


2s: 


TST16: 


1$: 


es: 


FE? gS RRs Ett 


SCOPE ;SCOPE THIS TEST 


J HHBHHEHHHEHHHBHEBBHBHBHHHEE TEST 16 ueeedteteeeeeeteteeseess 
:#TEST OF OUT CLEAR 
i #SET SOM AND LOAD OUT DATA SILO 
#SINGLE STEP DATA CLOCK, SET OUT CLEAR 
: VERIFY THAT OCOR,RTS AND ACTIVE ARE CLEARED 
PTOTTTT Ti rriit ret iit iti tert re ere rire reg Dt 


; TEST 16 


Mov #16, TSTNO 


MOV #TSt17, NEXT 
sR1 CONTAINS BASE DMC11 ADDRESS 
NSTCLR :MASTER CLEAR DMC11 


V #BIT11,(R1) ; ig UN OOP 

v #1,4(R1) iB ly TY WITH BITO 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 211 ie SOM A 

NCL XT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 iL T DATA SILO 
JSR PC, OCOR ‘WAI OR 
DATACLK, :CLOCK DATA FOUR TIMES 
MOV #B1T7,4(R1) :SET ite IN PORTY 
ROMCLK ;NEXT WORO IS INSTRUCTION, ROMCLK PC=5304 
122111 T CLEAR 
DATACLK, 1 :GIVE A TICK TO CLEAR RTS 
MOV #17,Re2 :SAVE ADDRESS FOR TYPEOUT 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021 :PORTY*LU 17 
MOV 4(R1),R4 :PUT “F 
BI #357,R4 : CLEAR 

RS ‘PUT “EXPECTED” IN RS 
CMPB sR, RY *IS OCOR CLEARED? 
;BR S 

HLT S 
MOV #13,R2 ; SAVE ADDRESS FOR TYPEOUT 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021264 :PORTY*LU 13 
MOV 4(RL),RY ;PUT EXPECTED IN RY 
BIC #337,R4 ;CLEAR UNWANTED BITS 
CLR RS :PUT “EXPECTED” IN RS, RTS SHOULD BE CLEARED 
CMPB ss RS, R4 18 RTS OK? 
BEQ 3 :BR IF YES 
HLT :RTS ERROR 
MOV #11,R2 ;SAVE ADDRESS FOR TYPEOUT 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
021224 sPORTS *LULL 
MOV 4(R1),R4 PUT “FOUND” IN RY 
MOY #BITY’RS !ONLY OUT READY SHOULD BE SET 


ee en --- 


OC} 


KOS 
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2167 014332 120504 CMPB sR’, R4 sIS ACTIVE CLEAR? 
014334 boi 801 BEQ 3$ :BR IF YES 
014336 104005 . HLT 5 ‘ERROR ACTIVE NOT CLEARED 
014340 104400 ‘ SCOPE ;SCOPE THIS TEST 


5 RERRRRAEAAEAREAERRERRERRELE TEST 17 £RRSRRRERRER EERE ESE SESE SES 

: ¥DDCMP TRANSMITTER 

;#SINGLE CLOCK THE CHARACTER O 

; XVERIFY ACH H! roan ee AS IT 

»#PASSES THE BIT WINDOW (SI BIT) 

: #0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
MTTPTESTTITirirerrrriitiittitirittrit ttt tttttitrttirtiirerey 


turuvrururoruorulrurururorurfururururfufurururorurulrururururfururururu 

hh pee res = SSA erlarlarlarlartarlarlarlarlartost-ont 

SSS QRRL ON SSB CRRA COALS Saad Zo SSh 
Oo 


; TEST 17 
014342 012737 000017 cOl226 TST17: Mov #17, TSTNO 
14 012737 014524 OOlel6 MOV #TSt20, NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
gee ios RI serritcany SY Efe ian tae 
us . 
Biases pass? Boos eR PeJouteoy BEIT FOR bu “READY 
014370 012761 000001 o00004 MOV #1, OCR -SET BITO IN PORTY 
14376 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
14400 122111 le2it1 T SOM! 
014402 012705 oo0000 MOV #0,R5 _; LOAD CHARACTER IN RS FOR TYPEOUT 
014406 737 Oe6S02 JSR PC’ OUTRDY OR 
O144i2 010561 o00004 MOV RS/4(R1) *LOAD PORTY WITH CHAR ACTER 
014416 4 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK °C=5304 
014420 122110 122110 *LOAD OUT 
014422 004737 026350 JSR PC,OCOR :WAIT FOR OCOR TO SET 
014426 005003 CLR R3 “CLEAR BIT COUNTER 
2200 014430 o10SG2 V R HARACTER IN 
2201 O14432 104415 oD0002 DATACLK, 2 TICKS TO SET UP T TT 
2202 O14436 104415 OO000! 13: DATACLK, 1 : SHIFT NEXT BIT IN THE WINoOu (SI BIT) 
2203 O14442e 106002 RORB Re 3 BIT IN TO CARRY 
2204 O14444 103005 F oe LEAR 
2205S O14446 004737 026316 JSR PC, GETSI 
Sooe piuued {paODE at OU nah tt us rm 
2208 Stee 000404 BR 3$ CONTINE 
2209 O14460 004737 026216 23: JSR PC ,GETSI re Ito 
2210 014464 103001 BCC 3$ e ae BE A SPACE 
11 O14466 104006 HLT 6 RR S A MARK 
22le O14470 3S: 
2213 014470 005203 INC R3 ;NEXT BIT 
2214 014472 022703 000010 CMP #10,R3 ;DONE YET? 
2215 014476 001357 BNE 1$ :BR IF. NO 
2216 O14S00 104415 o000i4 DATACLK, 14 5 CLOCK TRANSMITTER 14 MORE TICKS 
2217 O14504 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2218 O14506 021264 021264 : PORTH 
2219 014510 032761 oO0040 oDcoo4 BIT #BITS,4(R1) RTS SHOULD BE CLEAR NOW 
2220 O14S16 001401 BE ; Y 
2221 014520 104034 HL 34 S NOT CLEAR 
fe2e 014522 194400 4$: SCOPE +E RRPE” THIS TEST 


LOS 
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2223 

gss¢ (enema wat TEST 20 HEHE EESEERSSASEEEE SESE SES 
22eb OCMP TRANSMITTER T ef 

258 ah t Eee ra 

HE BIT WINDOW (S 

2230 + SON Al BH ERFOR 3 CONTAINS ert POSITION OF FAILURE 

esas Sn URSCRSTAAOSASSESSGSEFEEOSSTELESSAESNSESRFTHERONEEEEEONES 
3233 ; TEST 20 

2235 O14S24 012737 oO00020 o01226 TST20: MOV #20, TSTNO 

3038 014532 012737 014706 O01216 MOV #TSt21, NEXT 

2238 O14S4O 104412 MSTCLR eR OIE ess 

4 ; 
$633 Bis 12711 O04 By #BIT11,(R1) ft iM UNIT OOP 
wees bevel paoooI oo0004 aay oa or - tN "OORT 
8 

S543 athe 109414 ROMCLK eh itt PONS TRUCTION, ROMCLK PC=5304 
2243 O14S62 122111 le2ll! 

2244 014564 012705 000125 MOV #125,RS5 ;LOAD CHARACTER iN RS FOR TYPEQUT 

2245 014570 004737 O26502 JSR PC, OUTRDY ;WAIT FOR OUT- 

224% 014574 010561 MOV RS;4(R1) *LOAD PORT4 WITH CHARACTER 

2247 O14600 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2248 O14602 122110 122110 ‘LOAD OUT DAT 

2249 014604 004737 0626350 JSR PC ,OCOR *WAIT FOR OCOR TO SET 

2250 014610 005003 CLR a ; CLEAR BI 

2251 Ol46le 010502 MOV RS, Re sLOAD CHARACTER IN N Re 

2252 014614 104415 900002 DATACLK, a :2 TICKS TO SET UP TRANSMITTER 

22eS3 014620 104415 O0000i 1S: DATACLK, 1 :SHIFT NEXT BIT_IN THE WINDOW (SI SIT: 
2254 014624 106002 RORB Re ‘SHIFT NEXT SOFTWARE BIT IN TO CARRY 
seep O14be6 03005 BCC ‘BR IF CARRY CLEAR 

O146 737 026316 JSR PC ,GETSI :GET WINDOW 

Bae pt aese { Af BR ROR at oe SPACE 

S528 Ot aeaB ear BR 3$ art WITH TEST 

2260 014642 004737 926316 2s: ISR PC ,GETSI HE WINDOW 

2261 O14646 103001 BCC 3$ a IS A SPACE 

2ebe 014650 104006 HLT + PROR T WAS A MARK 

2263 014652 38: 

2264 014652 005203 INC R3 ;NEXT BIT 

2265 014654 022703 o00010 CMP #10,R3 ‘DONE YET? 

2266 O14660 001357 BNE 1$ BR IF 

2267 Ol4662 104415 000014 DATACLK, 14 ; CLOCK TRANSMITTER 14 MORE TICKS 

£ 014666 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2269 014670 021264 021264 *PORTY+LU-1 

2270 014672 032761 OO004C ocp004 BIT #BITS,4(R1) *RTS SHOULD BE CLEAR NOW 

227 014700 00140! BEG 4g :BR a YES 

2272 014702 104034 HL 34 RR S NOT CLEAR 

te 014704 104400 4$: SCOPE :SCOPE THIS TEST 

2275 

2276 pPOUOURURESEOBERERSEREEROSDS TEST Cl RHRSRERRSARARERAELARER ALR ED 
2277 :#DDCMP TRANSMITTER 


2278 ;*#SINGLE CLOCK [HE CHARACTER 2Se 


DZDME _MACY11 30( 1046) 
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2279 
2280 
2281 
e28e 
2283 
2284 
228s 
2286 014706 012737 
2287 014714 012737 
2e88 
2289 014722 104412 
2ee90 014724 012711 
2291 014730 737 
ee3e 014734 012761 
2293 014742 104414 
2e94 = O14744 122111 
2e9S 014746 012705 
2296 O147Se 004737 
2297 014756 010561 
2e98 014762 104414 
2e39 014764 122110 
2300 014766 004737 
2301 014772 005003 
e302 Bees ie 
5303 Gisooe losis 
2305 Ett Hticeed 
S307 Olsble Ours? 
2308 O15016 103406 
2309 015020 104006 
e310 015022 OO00404 
2311 015024 -004737 
e3le 015030 103001 
2313 015032 1 
2314 015034 
2315 015034 005203 
2316 015036 022703 
2317 01504 001357 
2318 O15044 104415 
sah ybees4 414 
15052 1264 
e321 015054 761 
5355 1 001401 
15064 104034 
e3e4 015066 104400 
e325 
e326 
e327 
2328 
2329 
2330 
e331 
e33e 
2333 


14 


000021 O0l226 
015070 O0lel6 


004000 
026502 
000001 900004 


000040 900004 


11-JUL-77 11:40 PAGE 4S 
718 BASIC TRANSMITTER TESTS 


TSTel: 


1$: 


eS: 


3$: 


4§: 


MOS 


; VERIFY EACH BIT ahha te AS IT 
*PASSES THE BIT WINDOW (SI BIT) 

$S0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
WeTiiiiiititiiiititiititititititieliriiiceriritersri ret iret rey 


; TEST 21 
hov #21, TSTNO 
MOV #TSt22, NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
STER CLEAR DMC11 


MSTCLR MA 
MOV #BIT11, (RL) :SET LINE UNIT LOOP 
JSR PC, OUTRDY WAIT FOR QUT -READY 
MOV #1/4(R1) jSET BITO IN PORTY 
RONCLK iNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
MOV #252,RS ;LOAD CHARA TER iN RS FOR TYPEOUT 
JSR PC, OUTRDY WAIT FOR OUT-READY 
MOV RS;4(R1) ‘LOAD PORTY WITH CHARACTER 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
122110 “LOAD OUT DATA 
JSR PC, OCOR WAIT FOR OCOR TO SET 
CLR R CLEAR BIT COUNTER 
RS,R2 LOAD CHARACTER IN Re 
ATACLK, 2 ig TICKS 19 SET TRANSMITTER 
ATACLK’ I ‘SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
RORB Re ‘SHIFT NEXT SOFTWARE BIT IN TO CARRY 
BCC es ‘BR IF CARRY CLEAR 
JSR C,GETSI GET THE WINDOW 
BCS 3$ BR IF BI S A MARK 
HL ‘ERROR BIT WAS A SPACE 
BR ;CONTINE WITH TEST 
ISR PC, GETSI GET THE WINDOW 
BCC 3$ ‘BR IF BIT IS A SPACE 
HLT 6 ‘ERROR BIT WAS A MARK 
INC R3 ;NEXT BIT 
CHP #10,R3 ; DONE Yer? 
DATACLK, 14 :CLOCK TRANSMITTER 14 MORE TICKS 
ROMCLK Pont WORD IS INSTRUCTION, ROMCLK PC=5204 
:PORTY+LU-1 
BIT #BITS,4(R1) S SHOULD BE CLEAR NOW 
BEG BR YES 
HL 34 ‘ERROR, RTS NOT CLEAR 
SCOPE ‘SCOPE THIS TEST 


GLE CLOCK THE C TER 377 
{xVERIFY EACH ait PO ai TieN AS it 
pes THE BIT WINDOW (SI BIT) 
;#0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
SeeSaESTeSGESEOESOSEESOGSEASSEASSESASEERG20q00000000000004 


PAGE: 


0064 


NOS 
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oi ; TEST 22 
339 bisbre. Dieva? Olsese OOIZIE ee es 
8 

5 Ri CONTAINS BASE pneu ADDRESS 

3 015104 10442 MSTCLR Ba yp $ nASTER CLEAR DMC 

Sib Bibi Bisel poeebe MY Be OUtROY ee he Tho 

e343 015116 012761 000001 900004 MOV ar 4tRI) iSET B1T0 IN PORTS 

2344 bie 104414 ROMCLK jNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2345 015126 eel 122111 T 

234% 015130 012705 000377 v #377,RS ;LOAD CHARACTER iN RS FOR TYPEOUT 

2347 015134 004737 Oeb6S0e JSR PC, OUTRDY Ye! OR OUT-READY 

2348 015140 010561 OO0004 MOV RS; 4(R1) PORT4Y WITH CHARACTER 

2349 O15144 104414 OMCL WORD IS INSTRUCTION, ROMCLK PC=5304 
See Otetea boreay 026350 1ee110 oe OCOR ike D OUT OeOR TO SET 
cise O18i) Bisots aR RS CLEAR BIT COUNTER 

2354 pete 104415 00002 DATACLK, ° 2 SOT cKS RoC cER tN RE oNsn ITTER 

2355 015164 104415 000001 1S: DATACLK, I ‘SHIFT NEXT BIT_IN THE WINDOW (SI BIT) 
e356 015170 1 RORB ‘Re SHIFT NEXT SOFTWARE BIT IN TO CARRY 

15172 1 BCC BR IF CARRY CLEAR 

2358 015174 004737 026316 ISR PC,GETSI GET THE WI 
2359 015200 103406 BCS 3$ ‘BR IF BIT IS A MARK 
2360 015202 104006 HLT ‘ERROR BIT WAS A SPACE 
2361 015204 O00404 BR 3$ :CONTINE WITH TEST 

2362 015206 004737 026316 23: JSR PC ,GETSI GET THE WINDOW 

2363 O152el2 103001 BCC 3$ ‘BR IF BIT IS A SPACE 
2364 015214 104006 HLT 6 ERROR BIT WAS A 
2365 015216 3S: 
2366 015216 INC ;NEXT BIT 
2367 015220 022703 000010 MP #10,R3 ;DONE YET? 
2368 015224 001357 B *BR IF NO 

2369 015226 104415 oO00014 DATACLK, 14 ‘CLOCK TRANSMITTER 14 MORE TICKS 
2370 O15232 104414 ROMCLK ;NEX XT WORD IS INSTRUCTION, ROMCLK PC=5304 
2371 015234 021264 021264 iPORT YeLU-13 

2372 015236 032761 O00040 oo0004 BIT #BITS,4(R1) RTS SHOULD BE CLEAR NOW 

2373 015244 001401 BEQ 4§ IF YES 

2374 01524 104034 HLT 34 seh OR, RTS NOT CLEAR 

e375 015250 104400 4g: SCOPE :SCOPE THIS TEST 

23 

2378 5 RRKREA LARA RLAAA RARE LELELE TEST Co RHRHSRHHAAAAAAAAAARALAL RASS 
2379 :¥DDCMP_ TRANSMIT T 

;¥SINGLE CLO NARY COUNT PATTERN 

2381 “VERIFY EACH BIT POSI ION 

2382 :*#PASSES THE BIT WINDOW (SI BIT 

2383 :#0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 

2384 tAND RS CONTAINS THE CHARACTER THAT FAILED 

soo : 5s RRR REEL EERE AERA AREER AREAL AERA AERA RR AA EERE LES 
g387 ; TEST 23 

2389 OlS2S52 0127327 o00023 odl226 TST23: Mov #23, TSTNO 


2390 015260 012737 O15460 OOlelé MOV aTST24, NEXT 


BUYYYYYYYY 
WOnNTW SW O 


BO6 


an i 


SeteReoRoe se aa 
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;R1 CONTAINS BASE DMC11 PDDRESS 
015266 104412 MSTCLR ;MASTER CLEAR 3 
Biase peril 004000 MOV #BIT11,(R1) ;SET LINE UNtT + 
1 CLR R3 ;R3 CONTAINS BIT COUNT 
01S276 O0S004 CLR RY ;R4 CONTAINS TQ BE LOADED IN SILO 
015300 005005 CLR RS ;RS_ CONTAINS CHARACTER CURRENTLY BEING SHIFTED © 
Blase 004737 026502 JSR PC ,OUTROY ;WAIT FOR OUT-READY 
15306 012761 000001 900004 MOV #1,4(R1) ;SET BITO IN PORTY 
015314 104414 ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
015316 peeit 122111 ;SET_ SOM! 
015320 0047 026502 JSR PC ,OUTRDY ;WAIT FOR OUT-READY 
015324 01041 000004 MOV RY, 4(R1) ;LOAD PORTY WITH CHARACTER 
015330 104414 OMCL ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
01533e 122110 122110 ;LOAD OUT DATA 
plasst 005204 INC RY ; INCREMENT TO NEXT CHARACTER 
18336 004737 026502 JSR PC, OUTRDY ;WAIT FOR OUT-RE 
015342 010461 MOV RY, 4(R1) ;LOAD PORTY WITH CHARACTER 
O1S346 104414 RuiiLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
015350 122110 12211 ;LOAD OUT DATA 
Blase 004737 026350 JSR PC ,OCOR ;WAIT FOR_OCOR TO SET 
15356 104415 000002 DATACLK, 2 ;e2 TICKS TO SET UP TRANSMITTER 
01$36e 005003 4$: CLR R3 ;CLEAR BIT COUNTER 
015364 010502 MOV RS ,Re ;LOAD CHARACTER IN Re 
015366 104415 000001 1$: DATACLK, 1 ;SHIFT NEXT BIT IN THE WINDOW (SI BIT? 
015372 106002 RORB Re ;SHIFT NEXT SOFTWARE BIT IN TO CARRY 
015374 103005 BCC ;BR_IF CARRY CLEAR 
015376 004737 O26316 JSR PC ,GETSI ;GET THE WINDOW 
01S40e 103406 BCS ;BR IF BIT IS A MARK 
OiS4O4 104006 HLT ;ERROR BIT WAS A SPACE 
015406 OO00404 BR 3$ ;CONTINE WITH TEST 
015410 004737 026316 2s: JSR PC ,GETSI ;GET THE WINDOW 
015414 103001 BCC 3$ ;BR IF BIT IS A SPACE 
atte 104006 35 HLT 6 ;ERROR BIT WAS A MARK 
015420 005203 INC ;NEXT BIT 
015422 Oee703 000010 CMP #10,R3 ;DONE YET? 
01 001357 BNE 1 ;BR IF NO 
01 INC RY ;NEXT CHARACTE 
O1S43e 004737 026502 JSR PC, OUTRDY ;WAIT FOR OUT-RE 
01 010461 000004 MOV s4CR1) ;LOAD PORTY WITH C TER . 
O1s44e = 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
015 122110 122110 ;LOAD OUT DATA 
015446 INC ;NEXT CHARACTER 
01S4SO0 Oee70S O00400 CMP #400,RS ;DONE YET? 
015454 001342 BNE 4§ ;8R IF NO 
O1S4S6 + 104400 S$: SCOPE ;SCOPE THIS TEST 
2439 ; ESE RASAERASEREREREREEREERL TEST OY FEEREEREREARERER ERATE AAIE 
2440 ;#DDCMP STRIP SYNC TEST 
a ;#SET LU LOOP, SINGLE STEP S SYNCS 
eu4e :#VERIFY THAT IN ACTIVE DOES NOT SET 
3 :  REESEAEESSESERRASRSAERALEARERERESAAATARTELARELATEALERAAA LAIR 


e4us ; TEST 24 


aur sf 


s 


ERERP RRR ac icta co 


Peyy 
—83 


CO6 


PAGE: 


R1_ CONTAINS DMC11 ADDRESS 
T AR 


CL 

L 
UR 

Mok 


BASE 
EAR DMC11 

EG FOR TYPEOQUT 

OCK S SYNC CHARACTERS 


sNEXT HOR 1S INSTRUCTION, ROMCLK PC=S304 
PUT “FOUND” rit BY 
CLEAR UNWANTED BITS 
:PUT “EXPECTED” IN RS 
iJ acd IVE CLEAR? 


ERROR ACTIVE IS NOT CLEAR 
:SCOPE THIS TEST 


; LEFRELELEALLA ELE RL ELE RE REESE TEST CS SeRRSERRAESSSLL LAL LELESEESE 


TEST 
SINGLE oc a ee AND A NON-SYNC (301) 


ee LEESEEATOURSESSSAAT APEAHEEEESSSSERERSEEEEEEEOSORODSIOSE 


MACYL1 30° 1046) L1-JUL-77 11:40 PAGE 4 
ll l2-MAY-77 14:18 BASIC RECEIVER TESTS 
1 012737 001226 TSTo4: MOV #24, TSTNO 
pt euee 012737 sears 001216 MOV aTSt25 NEXT 
015474 104412 MSTCLR 
015476 012711 oo4000 MOV eB TAL, (RI) 
b15502 o1e7Ge 000012 MOV #12, Re 
15506 004737 026366 JSR PC, SYNC 
015512 O0000S 5 
015514 104415 000054 DATACLK, sy 
O1550 iovsl4 ROMCLK 
1 1244 021244 
0155204 016104 O00004 MOV 4(R1),R4 
015530 O4e704 000277 BIC #277, RY 
015534 o0S00s CLR RS 
015536 120504 CMPB sR, R4 
015540 001401 BEQ 1$ 
015542 104040 T 40 
015544 104400 1$: SCOPE 
; #ODCMP IN ACTIVE 
-#SET LU LOOP, 
!aVERIFY THAT IN ACTIVE I 
; TEST 2s 
S54 012737 000025 op1e26 TST25: MOV #25, TSTNO 
015554 012737 015636 OO0lel6 MOV #TSt26, NEXT 
01SS62 104412 MSTCLR 
015564 012711 904000 MOV SBIT11, (RL) 
015570 Ole70e oo00le MOV #12,Re 
015574 004737 026366 JSR PC, SYNC 
015600 900005 5 
015602 104415 000064 DATACLK, 64 
015606 !04414 ROMCLK 
015610 O21244 021244 
015612 Oi6104 oo0004 MOV 4(R1),R4 
015616 042704 900277 BIC #277, RY 
015622 012705 000100 MOV  8B1T6,RS 
015626 120504 CMPB RY 
015630 001401 BEG 
015632 104040 HLT 40 
015634 1044C0 1$: SCOPE 


;R1_ CONTAINS BASE ea ADDRESS 
; MASTER CLEAR DMC11 

;SET LU LOOP 

SAVE LU REG FOR TYPEOUT 
;SINGLE CLOCK 5 SYNC CHARACTERS 


“ule INSTRUCTION, ROMCLK PC=S304 


;NEXT 
:PORTYeL 
PUT “F 


RY 
: CLEAR UNWANTED, 8 BITS 

1 TEXPECTED™ IN RS 
iS active SE 


pescovanpansensentecesensnes TEST 26 HEHREEREEREREREESRRESRE RARE 


; #ODCMP IN ACTIVE T 
;*SET LU LOOP, 


SINGLE STEP 1 
t4VERIFY THAT IN ACTIVE DOES NOT 


SYNC _AND A NON-SYNC (301) 
SET 


5 ERESRAERAE LEER ESSER ELAS EAA ALARA SE LELAAASLRAA RARE LAAT ARERE 


; TEST 26 


OZDNE 
DOME .P11 


aaeeaae 


SAHARA 
MN ses iin culo 


BRB aRa 


MACY1L1 i 


l2-MA 


tS 
cs 
PeResR 


ness 
g 
to 
29 


oo bo 
Sor 
~— 
£ 
Oo 
— 


WNUNUIUTUTU 


OOVKOAMOOOOOO0000 OO 
“NINN 


w 
“I 
as) 
tT 
-_ 
oO 
3 
8 


ieceus 


OOOOVOOOOOOO0OO00O 00 


bb be bb be bb bb 


5S 
— 
Mo 
dod 
oO 
<= 
2 
oO 


DOb 
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000026 
015724 


000027 
016014 


001226 
001216 


001226 
001216 


49 
BASIC RECEIVER TESTS 


TST26: #26, TSTNO 


PAGE: 


MOV 
MOV #1St27, NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR MASTER CLEAR OMC11 
MOV #B1T11,(R1) :SET LU LOOP 
MOV #12,Re° ‘Cove tu REG FOR TYPEOUT 
ISR Hi SYNC ‘SINGLE CLOCK 1 SYNC CHARACTERS 
DATACLK, ey 
ROMCLK T WORD IS INSTRUCTION, ROMCLK PC=S304 
021244 ip ATHe *LUL2 
MOV 4(R1),R4 :PUT “FOUND” IN 
BIC #277,R iL LEAR UNWANTED Str 5 
CLR RS T EXPECTED" IN RS 
CMPB = s«aRS,R4 ite ACTIVE CLEAR 
BEQ 1$ :BR 
HLT 40 “ERROR ACTIVE IS NOT CLEAR 
1$: SCOPE :SCOPE THIS TEST 
etre ae TEST 27 SHRHHERRLRRESS ESSE SES ELES SS 
; #DDCMP IN ACTIVE TEST 
-#SET LU LOOP, SINGLE STEP 2 SYNCS AND A NON-SYNC (301) 
eras THAT IN ACTIVE IS SET 
¢ EERRERSRES SSAA LER ERA SLA ALAA LEA LALA SALA ALALSLALALALELALLLELLAARS 
s; Test 27 
TSTe7: ov #27, TSTNO 
MOV #TSt30, NEXT 
:R1 CONTAINS BASE ONCLL ACDRESS 
MSTCLR ;MASTER CLEAR DMC1 
MOV SBIT11,(R1) _ISET LU LOOP 
MOV #12,R2 EVE” tu REG FOR TYPEOUT 
ISR PC, SYNC :SINGLE CLOCK 2 SYNC CHARACTERS 
DATACLK, 34 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 PORTYeLUL2 
MOV 4(R1),R4 :PUT "FOUND" I 
BIC #277, RY ;CLEAR UNWANTED BITS 
MOV sB1Tb,RS -PUT “EXPECTED” IN RS 
cHPE RS,R4 1S ACTIVE SET? 
HLT ERROR ACTIVE IS NOT SET 
18: SCOPE :SCOPE THIS TEST 


PeWAIT F 


FOR IN ROY THEN 


sAVERIFY THAT IN ACTIVE ato tN RY ARE CLEARED 
s LRAARAERSRAAALAERASA SAA AA AAAAAALAARAAAERASLALATARAARRRARERAELARA 


; TEST 30 


00&8 


DZDME  MACYI1 30,1046) L1-JUL-77 11:40 PAGE 50 PAGE: 
DZOME.P11 12-MAY-77 14:18 BASIC RECEIVER TESTS 
Sie) tk een ee OS > 
Sei cms gary amon sure Tete A SE, 
;R1 CONTAINS BASE DMC11 ADDRESS 

016030 104412 MSTCLR !MASTER CLEAR DMC11 
2564 016032 012702 o00012 MOV #12,Re :SAVE REG ADORESS IN R2 FOR TYPEOUT 
2565 016036 012711 O04000 MOV eBIti1, (RL) -SET LINE UNIT LOOP 
2566 016042 004737 026534 JSR PC, CHAR “LOAD SILO WITH 3 SYNCS 
2567 O1604%6 000301 301 sAND A NON-SYNC (301) 
2568 016050 104415 000053 DATACLK, 53 :SINGLE CLOCK THE DATA 
2569 016054 104416 oO00002 TIMER, 2 :WAIT FOR INRDY 
2570 016069 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
sre Glebe rein moi apes eur Fong gn 
5255 seuiat ices ? BIC 357, R4 CLEAR UNAANTED TS 
2574 016074 O1e70S 9000020 MOV #81T4,RS T "EXPECTED" IN RS 
2575 016100 CMPB ss RS, RY :1S INRDY SET? 
2276 016102 001401 BEQ 
2577 O16104 104040 HLT 40 sERROR, INRDY IS NOT SET 
2578 016106 1S: 
2579 016106 012761 900200 on0004 MOV #B1T7,4(R1) :LOAD PORTY 
2580 016114 104414 ROMCLK : NEXT WORD Is INSTRUCTION, ROMCLK PC=53C4 
2581 O18116 122112 le2lle iSET IN 
2582 016120 104414 ROMCLK : NEXT WORD i INSTRUCTION, ROMCLK PC=S204 
2583 Olble2e 021244 021244 :PORTY*LU 12 
2584 0161204 O16104 ooooD4 MOV 4(R1) RY :PUT “FOUND” IN 
2585 016130 042704 000277 BIC #277, R4 ;CLEAR_UNWANT 
2586 616134 O0S00s CLR RS :PUT “EXPECTED™ IN RS 
2587 016136 le CMP8 =—saRS,,R4 :IS IN ACTIVE CLEAR? 
2588 O16140 001401 BEG 23 
2589 016142 104040 HLT 40 sERROR, IN ACTIVE IS NOT CLEAR 
2590 O16144 2s: 
2591 O16144 016104 900004 MOV 4(R1),R4 ;PUT “FOUND” IN R 
2592 016150 042704 900357 BIC 8357,R4 :CLEAR UNWANTED SIT S 
2593 016154 CLR :PUT “EXPECTED” IN RS 
2594 016156 120504 CMPB sa, R4 ?1S INRDY CLEARED? 
2595 O16160 901401 BEG 3$ 
2596 Ol6iS2 104040 HLT 40 ;ERROR, INRDY IS NOT CLEARED 
$337 016164 104400 38: SCOPE :SCOPE THIS TEST 
2599 
2600 5 RERRAERE REALE RRERRRRRREEEEE TEST 3] 2RRRRREREERESERSAREE EERE EES 
2601 ; xDDCMP BASIC RECEICER TES 
e602 :*#SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 
F -#VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
pan METECTTETEVTTTeLTTerrrerretrreretireretriretrirettrtt Teer eeter ys 
gb0b ; TEST 31 
2608 O16166 012737 900031 o0122¢ TST31: MOV #31, TSTNC 
2609 O16i74 012737 916302 OO12I5 MOV #7St32, NEXT 
2610 RL CONTAINS | BASE DMC11 ADDRESS 
2611 Oibede 104412 MSTCLR :MASTER CLEAR 
2612 016204 Ol2e702 oo0012 MOV #12, Re :SAVE REG RODRESS IN Re FOR TYPEOUT 
2613 Oibelo O1e711 904000 MOV eBIT1I, (RL) :SET LINE UNIT LOOP 
2614 016214 004727 026534 ISR PC, CHAR :LOAD SILO OuITH” 3 SYNCS 


DZDME MACYI1 30(1046) L1-JUL-77 11:40 PAGE $1 PAGE: 0070 
DZDME.P11 12-MAY-77 14:18 BASIC RECEIVER TESTS 
R 

gle bigs? TBST o000s3 Baracik, 53 iSINGLE ctock WHE ofTA 
2618 Ol6232 104414 —_— ROMCLK NEAT WOR Ne TNSTRUCTION, ROMCLK PC=S304 
2619 016234 021244 021244 ;PORTYeL 12 
sel Giese em Sooo ea elben Mbardd Bir 

Ot PSE Bisebe 000029 MOV #BIT4,RS : PUT EP BE CTED™ IN RS 
2623 O1g2s¢ 420504 CHP RS, RS :IS INRDY SET? 
sesd 016256 104040 HLT 40 sERROR, INRDY IS NOT SET 
2626 016260 1S: 
2627 O16260 104414 ROMCLK :NEXT WORD IS | INSTRUCTION, ROMCLK PC=S204 
26e8 Ol6e62 921204 021204 :PORTHeIN DATA 
2629 016264 916104 900004 MOV 4(R1),R4 FOUND” 4 
2630 016270 905005 CLR RS ‘PUT “EXPECTED” IN RS 
2631 Olbe72 120504 CMPB —saRS,,R4 :WAS A O RECEIVED? 
2632 016274 001401 8EQ 2$ 
2633 016276 104010 HLT 10 sERROR, RECEIVED DATA IS WRONG 
gb34 016300 104400 23: SCOPE ‘SCOPE THIS TEST 
2636 
2637 5 RERRELERARARLERERHELRRAELEL TEST JO SRRREERESEELES EERE LESSEE EES 
2638 :¥DDCMP BASIC RECEICER TEST 
2639 :#SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125 
2640 eon THAT IN ROY IS SET, ANDO THAT THE CHARACTER WAS RECEIVED 
as 2 RERELAAAAL ELAR ELAS A ERLE RAL LALA RASA E LASSER AL AERA REL E LETTE E 
2643 ; TEST 32 
| 2. all ap awn 9) Oo eae 
2645 0 012737 900032 001226 TST32: Mov #32, TSTNO 
264 016310 012737 016420 O01216 MOV #75133, NEXT 
2647 ;R1 CONTAINS BASE DMC11 ADDRESS 
2648 O16316 104412 MSTCLR :MASTER CLEAR DMC11 
2649 016320 O12702 oooo12 MOV #12,R2 :SAVE REG ADDRESS IN Re FOR TYPEOUT 
2650 016324 012711 o04000 MOV #BIti1,(R1) :SET LINE UNIT 
2651 016330 004737 O265 ISR PC, CHAR ;LOAD SILO OUITHE 3 SYNCS 
e652 016334 000125 125 THE CHARACTER 125 
2653 016336 104415 000052 DATACLK, 53 :SINGLE CLOCK THE DATA 
2654 016342 104416 o0000e TIMER, ‘2 FOR INRDY 
2655 016346 104414 ROMCLK NEAT WORD IS INSTRUCTION, ROMCLK PC=S204 
2656 016350 O21244 02124 :PORTHeLU 12 
2657 016352 016104 oo0004 MOV 4(R1) RY ;PUT “FOUND™ IN RY 
2658 016356 042704 000357 BIC #357,R4 : CLEAR UNWANTED BITS 
2659 O16362 012705 000020 MOV #BIT4,RS T "EXPECTED" IN &5 
2660 016366 120504 CMPB Ss RS, RH IS INRDY POET? 
2661 016370 O01401 BEG 15 
ebbe 016372 104040 HLT 40 :ERROR, INRDY IS NOT SET 
2663 916374 1S: 
2664 016374 104414 ROMCLK NEXT WORD Is, INSTRUCTION, ROMCLK PC=5204 
2665 016376 O21204 021204 : PORTY*IN 
2666 O1S400 O16104 oDp0004 MOV 4(RL) RY : PUT aE OUND" ‘ 
2667 O16404 012705 O0Dies MOV #125,R5 :PUT “EXPECTED” IN RS 
2668 O16410 1205 CMPB eS, RG ;WAS A 12S RECEIVED? 
2seS O1e412 001401 BE ane 
2&70 C1E414 104010 HLT 10 sERROR, RECEIVED DATA IS WRONG 


GO6 


DZDME  MACYLI 30; 1046) Ll-JUL-77 11:40 PAGE S2 POGE: O07! 
DZOME.P11 © 12-MAY-77 14:18 BASIC RECEIVER TESTS 

g671 O16416 104400 2s: SCOPE ;SCOPE THIS TEST 
2673 

74 ; LEARELLELAALALELSLAA EEL LLRE TEST Jo RHRRARERARASEA EEE EEEES EE EES 
2675 ; #DOCMP Basic RECEICER TEST 
2676 :#SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252 

77 :#VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
pg pe RAL RB 
2680 ; TEST 33 
sree Giese Glare SMG SRE ORY RITE 

( * 
a ;R1 CONTAINS BASE DMC11 ADDRESS 
2685S 016434 104412 MSTCLR :MASTER CLEAR DMC11 
2686 016436 Ole702 900012 MOV #12,R2 :SAVE REG ADDRESS tN Re FOR TYPEOUT 
2687 016442 012711 OO4000 MOV aBIti1, (RI) ; SET LINE UNIT LOOP 
2688 O16446 004737 026534 JSR PC, CHAR :LOAD SILO UNITH 3 SYNCS 
O16 Se HE C TER 2Se 

Ba 16454 ere 000053 ATACLK, 53 SINGLE CLOCK THE DATA 
2691 O16460 104416 O00002 TIMER, 2 :WAIT FOR INRDY 
26392 O16464 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2693 O16466 021244 921244 *PORTYeLU 12 
2694 016470 O16104 900004 MOV 4(R1) RY ;PUT “FOUND™ I 
2695 016474 042704 000357 BIC #357,8 : CLEAR UNWANTED BITS 
269 016500 012705 900920 MOV #8174, RS EXPECTED" IN RS 
2697 016504 CMPB =—s-R'S,, Rv IS INROY SE 
2698 O16506 001401 BEQ 1$ 
2699 O16510 104040 HLT 40 sERROR, INRDY IS NOT SET 
2700 O16512 1$: 
2701 Ol6Sie 104414 ROMCLK sNEXT WORD 1S INSTRUCTION, ROMCLK PC=S304 
2702 O16514 021204 021204 :PORTY+IN DAT 
2703 O16516 016104 900004 MOV 4(R1),R4 “PUT “FOUND” fy 
2704 016522 012705 o002se MOV #252,85 :PUT "EXPECTED" RN RS 
2705 016526 1205 CMPB RS, RG ;WAS A 252 RECEIVED? 
2706 016530 001401 BEQ 2$ 
2707 016532 194010 HLT 10 sERROR, RECEIVED DATA IS WRONG 
3708 016534 104490 23: SCOPE :SCOPE THIS TEST 
2710 
2711  RRRRERRRELRERREREEREERSERES TEST 24 See eee eeee eens enaeecensess 
2712 :#DDCMP BASIC RECEICER TEST : 
2713 :#SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377 
2714 ; #VERIFY THAT IN RDY IS SET. AND THAT THE CHARACTER WAS RECEIVED 
stip 1: REEREREAEEREREEAEEED OE RERAEREREEESAEESEREREEES ESE EEERESER SEE ES 
site ; TEST 34 
2719 016536 012737 oOO0034 o01226 TST34: MoV #34, TSTNO 
2720 016544 012737 OIS654 OflzeI¢ MOV 87ST35 NEXT 
2721 yi :R1 CONTAINS BASE DMC11 ADDRESS 
2722 bibsse 107412 MSTCLR :MASTER CLEAR DMC! 
2723 O16554 Ole70e ocool2 MOV #12, Re :SAVE REG ADDRESS IN Re FOR TYPEOUT 
2724 O16560 012711 O04000 MOV eBITi1, (RL) :SET LINE UNIT LOOP 
2725 016564 004737 026534 JSR PC, CHAR ‘POA StL0 WITH 3 Syncs 
2726 O16€70 900377 377 :AND THE CHARACTER 


DZDME  MACYLI 301046) Ll-JUL-77 11:40 PAGE 53 PAGE: 6072 
OZOME.P11 12-MAY-77 14:18 BASIC RECEIVER TESTS 

7 4 TACLK, $3 ; THE DATA 

sce Bibece Bide BBBBRS PONPRLK: BANGER PERO TME © 

2729 016602 LOW RONCLK 1 eva S INSTRUCTION, ROMCLK PC=5304 
goa0 Bt pb Re Bre Fdd 000004 ast 4(R1) RY :PUT “F IN 

Sr Bibslg Giese socee CE tS ake 

é ’ 

es Bieee CMPB ae ;I1S INRDY We 

? 16624 1401 BEQ 1$ 

2736 016626 104040 - HLT 40 ;ERROR, INRDY IS NOT SET 

55 BiEbse 104414 ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=S5304 
2739 016632 021204 021204 ; PORTY+IN 

274 016634 O16104 o00004 MOV 4(R1) RY ‘PUT “F aT RY 

2741 O16640 012705 000377 MOV #377,RS :PUT “EXPECTED” IN RS 

2742 O16644 120504 CMPB seRS, RG “WAS A 377 RECEIVED? 

e743 Ol6646 901401 BEG 2a 

e744 016650 104010 HLT 10 sERROR, RECEIVED DATA IS WRONG 

g. O:66Se 104400 2$: SCOPE :SCOPE THIS TEST 

747 

2748 ea ae TEST 35 4HEXRREHRRESSRAEE SSL ESE ESSE 
e749 -*DDCMP DATA TEST 

27 ;#THIS Teer SINGLE STEPS A BINARY COUNT PATTERN 

2751 : #CHECKING EACH CHARACTER AS IT IS RECEIVED 

5726 ETTTtritrrireritiiirertiitereritrttttrirretiiittittitittitt tte 
es ; TEST 35 

2756 O16654 012737 O00035 001226 TST3S: MOV #35, TSTNO 

2757 016662 012737 917004 001216 MOV #TST36, NEXT pe 

2758 :R1 CONTAINS BASE | OMC11 ADDRESS 

2759 016670 104412 MSTCLR MASTER CLEAR Di 

e7S0 Ol6672 005037 O027152 CLR SCHAR :START BINARY ROUNT AT ZERO 

2761 016676 005037 027154 CLR STUFLG ; CLEAR BITSTUFF FLAG 

2762 016702 o0S002 CLR Re -Re IS “EXPECTED” DATA 

2763 016704 012703 000073 MOV #73,R3 ?R3 IS CHARACTER COUNT 

2764 O16710 012711 904000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 

2765 016714 004737 026712 JSR PC,SILOLD ‘PADS SILO NTH COUNT PATTERN 

2766 016720 104415 900043 DATACLK, 22 :SYNC RECEIVER AND GET IT ACTIVE 

2767 016724 104415 000730 1$: DATACLK, 730 CLOCK IN 73 CHARAC TERS 

2768 016730 004737 027156 4: JSR PC, INRDY WALT F 

2769 016734 104414 ROMCLK sNEXT HORD IS INSTRUCTION. ROMCLK PC=5304 
2770 016736 021204 021204 ?PORTY*IN DATA 

2771 016740 016104 o00004 MOV 4¥(R1L) RY :PUT "FOUND" IN R 

2772 O16744 901020S MOV R2,R5 : PUT AEXPECTED rN RS 

2773 O167468 120504 CMPB =—s- RS, RY 15 DATA CORRECT? 

2774 016750 001401 SEQ ft Y 

2775 016752 104010 HLT 10 :DATA ERROR 

2776 016754 onsepe 23: INC Re :NEXT CHARACTER 

2777 016756 O22702 900400 CMP #400, Re ALL DONE? 

2778 016762 001407 BEG 3$ :BR IF YES 

27739 O16764 905303 DEC Re ; DECREMENT CHARACTER COUNT 

2780 Ol16766 001360 BNE !BR IF SILO NOT EMPTY 

e781 016770 004737 o26712 ISR pe SILOLD :LOAD SILO WITH MORE OF COUNT PATTERN 
2782 016774 612703 900072 MOY 873, R3 “RELOAD CHARACTER COUNT 


I06 


DZDME  MACYLI EF ' Jie" 11:40 PAGE S4 PRGE: 00723 
DZDME.P11 l2-MAY-77 14:18 BASIC RECEIVER TESTS 
2783 017000 000751 BR 1$ ; CONTINUE 
th 017002 104400 3s: SCOPE -SCOPE THIS TEST 
2786 
85 "4 jrOocrr Gea Test nn TEST 36 RERHRERSELESAELASESE ESSE SES 
+ # 
tha, :#THIS TEST a STEPS A BINARY on teem 
rd 
55a : SHE CK Hhe,F ReneS pact RELY THE. Sane Re FRE iy TEST, 
2792 te EXCEPT LINE T IN LU REGISTER 12 
he eS UDSeSaLEAGeSHAESATEREESAEEARECETEEGERESEEREEEESESESEe 
ra 
the ; TEST 36 
e797 017004 9012737 900036 d001226 TST36: MOV TSTNO 
2798 O17012 012737 917144 OOlel6b MOV seta? NEXT 
7 ;R1 CONTAINS BASE DMC11 ADDRESS 
2800 017020 104412 MSTCLR "MASTER CLEAR ll 
2801 017022 O00S037 Oe71Se CLR SCHAR ;START BINARY COUNT AT ZERO 
2 017026 005037 OG27154 CLR STUFLG ; CLEAR ai Tater FLAG 
28 01703e 005002 CLR Re sRe IS “EXPECTED” DATA 
2804 017034 012703 000073 MOV #73,R3 *R3 IS CHARACTER COUNT 
280S 017040 005011 CLR (R1 : CLEAR LU {,00? IN MAINT REG 
2806 017042 O12761 oo00040 O00004 MOV @BITS,4(R1) ; LOAD port 
2897 917050 104414 ROMCLK xT WORD 3°, INSTRUCTION, ROMCLK PC=5304 
cone 017052 iselis leelle iS TLUL 
Si Ging) ipwis Soe i eS aa 
e811 017064 104415 poo 33 1$: DATACLK: ? Seen 3 CHARRC BRAC TERS 
e8le 017070 004737 027156 4$: JSR PC, INRDY R INRDY 
2813 017074 104414 ROMCLK Nex t ORD 15 INSTRUCTION, ROMCLK PC=S304 
2814 017076 021204 021204 PORTH IN DATA 
e815 017100 016104 900004 MOV 4¥(R1},R4 ;PUT “FOUND” IN 
2816 017104 0O10205 MOV Re, RS ;PUT “EXPECTED” _IN RS 
2817 017108 120504 CMPB RS,R4 :IS DATA CORRECT 
2818 017110 001401 BEQ 23 : YES 
2819 O171le 104010 HLT 10 ;DATA ERROR 
2620 017114 O0S202 2s: INC Re s NEXT CHARACTER 
e821 017116 O227 290400 CMP #400 ,Re mL Bt 
eBee O017l2ee 00140 BEG 3$ 
2823 017124 005303 DEC R3 Brower * coaancteR: COUNT 
2824 O47 168 pol sey BNE 4§ Iho 
e8eS 0171 0047 026712 JSR PC ,SILOLD :LOAD SI Wit ERE OF COUNT PATTERN 
e826 017134 012703 o00072 MOV 873,R3 ; HARACTER COUNT 
e827 017140 000751 BR 1$ ‘Con 
2828 017142 104400 33: SCOPE : SCOPE THIS TEST 
3B50 
ah + SHSSSRRSERARRSEESESERRRERRE TEST 37 £2 eee ee ee eeee RARE EREL TRATES 
j STRANSHITTER 1 a: oe 
a ED GER Sees ae 6 2 AP Bors 
Sue 
825 : VER ICATING T THE O PeaN anrrtek g WENT 
Bt + He a4 X ATE FOR 16 BITS WHEN OUT SILO WAS EMPTY 


2837 ae cenanbnaeeDanDODEOEbORDOEDSGEGSUsesSenesesesSoDneDesDenn’ 


DZOME 
DZOME . P 


S824 


2841 


JO6 


PAGE: 


RA GPRTE LER ORE pels ADDRESS 


;SET LINE UNIT 
#1080, 9 WITH 3 SS yNCS 


ite eon THE theby IN AND 20 EXTRA TICKS 


s NEXT uoro IS INSTRUCTION, ROMCLK PC=S304 
sPORT Ye TA 


att IN RY 
‘PUT “EXPECTED” IN RS 
WAS A 301 RECEIVED? 


ERROR OR INRDY CHARACTER INCORRECT 
‘NEXT _ n aTa INSTRUCTION, ROMCLK PC=S304 
SPORT CIN 


iE SEIPYPAEBe ito 


3E on? WAS NOT RECEIVED 
sEArT FOR INRDY 

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
SPORT He IN 


R4 
a “EXPECTED” IN RS 
WAS A 377 RECEIVED’ 


SERR OR, 377 WAS NOT RECEIVED 
SCOPE THIS TEST 


SET DTR 


NTAINS BASE DMC11 ADDRESS 
Ss CLEAR BRE LI 


NNECTOR ON” 


macy 30; 1046) giigtu-77 11:40 PAGE SS 
12-MAY-77 14:18 BASIC RECEIVER TESTS 
; TEST 37 
017144 012737 000037 001226 TST37: MOV #37, TSTNO 
0171S2 012737 017304 O01216 MOV aTSt40, NEXT 
017160 104412 MSTCLR 
017162 012711 oO4000 MOV #BIT11, (R1) 
917186 7 4 026534 R PC, CHAR 
7174 4 0007 ATACLK, 73 
pte had 3h ponte SR PC, INRDY 
Tee ses 
612598 tate oo00c04 MOV 4(R1) RY 
017214 01270S 000301 MOV #301,RS 
17220 1 O50 CMPB sR, R4 
Bisse But ae 
17226 O43? 027156 18: ISR PC, INRDY 
017234 be 1204 02120 
017236 016104 990004 HOV 4RL) RM 
Bieie Papen, 2 ite Be 
017250 001401 BEQ 
17252 104010 HLT rt 
17254 737 027156 2S: JSR PC, INRDY 
17 104414 ROMCLK 
17262 021204 021204 
017264 O16104 900004 MOV 4(R1),R4 
017270 O1270S 900377 MOV #377,RS 
017274 120504 CMPB sR, R4 
ol 1401 Eg 
1 104010 HL l 
017302 104400 3S: SCOPE 
 ¥CABLE 
*#CLEAR LINE UNIT LOOP 
:#VERIFY THAT MODEM 
se EAR DTR, VERIFY THAT MRDY 
; TEST 40 
17304 012737 OO0040 oole26 TST4O: MOV #40, TSTNO 
017312 012737 O17466 O01216 MOV #TST41, NEXT 
017320 104412 MSTCLR 
017322 032737 O20000 001366 T #81713, STATI 
017330 001004 BNE 
017332 032737 O40000 001366 SIT wITL4, STAT! 
017340 001451 BEG es 
017342 o0S011 CLR (RL) 
017244 012761 oc0100 ococco4 MOY #100,4(R1) 


ee ee ee Re <n rE mmm ee me mm me mame meme emenemanen cme 


M82 

obi EVEN IF NO LOOP-BACK CONN) 
C 

NO 


0074 


Ee oe = 


KO6 


DZDME  MACYI1 30(1046) 11-JUL- 77° (11:40 PAGE S& PAGE: 0075 
DZDME.P11  12-MAY-77 14:18 BASIC RECEIVER TESTS 
ROM if xT RO IS INSTRUCTION, ROMCLK PC=S304 
Be BL Paes ie2it3 teal 15 off 
zee biz 38 Ios ROME RK . iat WORD IS INSTRUCTION, ROMCLK PC=S304 
17368 O1e104 nO WCRI). RM ‘a Foun UNo"_IN RY 
at p17 366 23 BIC #223,R4 C TED BITS 
2902 017376 012705 000110 MOV #110°RS : PUT “EXPECTED” IN RS 
2303 b174Ge CMPB sR’, R4 7 SET? 
l 1401 BEQ 1$ 
2905 017406 104011 a . HLT i MROY NOT SET 
5308 pie aio 14 —_ BRK i. T Pe IS INSTRUCTION, ROMCLK PC=S304 
2908 O17416 122113 122113 
e909 017420 104416 o00002 TIMER, 2 
e310 bizugs 414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
li O174 1264 1264 *PORTY*LUL3 
2912 017430 016104 o00004 MOV 4(R1) RY ‘PUT “FOUND” I 
2913 017434 O42704 000223 BIC #223, R4 :CLEAR UNWAN 
2914 017440 O0S00S CLR ‘PUT "EXPECTED" IN RS 
e316 o1mve 032737 020000 001366 BIT #81713, STATI 15 LINE UNI 
e317 pte 000010 1S iB T3,RS :MRDY i i? ON M8202 
18 O17456 1205 CMPB sR, RY :IS MRDY CLEAR? 
2919 017460 001401 BEQ 23° 
2920 O17462 104011 HLT il sERROR, MRDY_NOT CLEAR 
e321 017464 104400 2s: SCOPE :SCOPE THIS TEST 
2923 
535d ee gg ee ey TEST 4] eeeeeeeeeeenenenseeeeeeanes 
*CABLE TURNAROUND 
2926 t ¥CLEAR LINE UNIT LOOP, LOAD OUT DATA SIL¢ 
2927 s VERIFY THAT ALL MODEM SI AR 
Saco cM al ca a ECT AR 
2330 ; TEST 41 
2932 O17466 012737 900041 o0l1226 TST41: Mov #41, TSTNO 
2933 017474 012737 017632 OO121& MOV #TSt42, NEXT 
2934 ;R1 CONTAINS BASE DMC11 ADDRESS 
2935 017502 104412 MSTCLR :MASTER CLEAR DMC11 
2936 017504 032737 O20000 001366 BIT #BIT13,STATI ;I1S LINE UNIT M8202? 
2937 017512 001004 BNE +12 ;8R IF YES (D0 TEST EVEN IF NO LOOP-BACK CONN) 
2938 017514 032737 O40000 001366 BIT #BIT14,STATI -IS TURNAROUND CONNECTOR ON? 
2939 017522 o0144e BEQ 1$ ‘SKIP TEST IF 
2940 017524 012711 oo4000 MOV #BIT11, (RL) :SET LINE UNIT LOOP 
2941 017530 012761 900100 ooD004 MOV #100, ° 4(R1) LOAD 
e942 017536 104414 ROMCLK ;NEXT WoRD IS INSTRUCTION ROMCLK PC=5304 
2943 017540 122113 122113 :CLEAR ALL MODEM SIGNALS,EXCEPT OTR 
2944 017542 104416 oD0002 TIMER, 2 WAIT 
2945 017546 012761 O00001 ooD004 MOV #1,4(R1) :LOAD P 
gait 017554 104414 ROMCLK :NEXT ORD IS INSTRUCTION, ROMCLK PC=5304 
17556 122111 122111 ‘SET SOM 
2948 017560 004537 027620 ISR RS,MESLD FILL L OUT DATA SILO 
2948 017564 030102 MESDAT ‘WITH 64 CHARACTERS 
2950 01756 000100 


Pl 


MACY11 30( 1046) 
12-MAY-77 14:1 


Bivere Basar? vm? 


PORREER RSS 


o 
8 


017632 


-_ 
> | 
ao 
<= 
Oo 


CLSELSSSSSSSSSSSSSeeSSseseee SF 
N “) | 
FRERVIRBEASRTOMNSTSTSSE ERS F 


ra 
y 
“I 
Tw 


012737 
012737 
012737 


O441e 
12711 
004737 


O0S000 
012737 
012737 
005037 


006037 
013737 


000004 
000223 
000154 


017736 
027320 


11-JUL-77 
:18 


017740 


11:40 PAGE $7 
BASIC RECEIVER TESTS 


2s: 


1$: 


TST4e: 


64S: 


6S$: 


66S: 
67$: 


68S: 


69S: 


MO #50, RO 
CL (Ri} 
ROMCLK 

Rots 

MOV 4(R1),R4 
BIC 23,R 
MOV #154°RS 
CMPB V4 
BEQ 1$ 

DEC RO 

BNE 25 

HLT ll 

SCOPE 


PAGE: 


ieCEAR LINE UNT? LOOP 


XT WORD_IS INSTRUCT ROMCLK PC=S304 
PORT ¥e LU13 i — 


i: A 
(Mkt etd a FOUND 
: DEC DELAY COUNT 

‘BR IF NOT ZERO 


;ERROR, ALL SIGNALS ARE NOT SET 
;SCOPE THIS TEST 


seTEcT OF CRO OPERATION TEST YO SHRRRSSESLARAAAALAL RAE LE SES 


ee ee 


ALA SINGLE. Cuore Te CHARACTER 


TRANSMITTER FIRST THEN THE RECEIVER 
rao Uy ld ll OS RT 


; TEST 42 


hov #42, TSTNO 
MOV rst NEXT 
MOV #64$, LOCK 


#BIT11,(R1) 

PC, CLRIO 

MOV #CRC16, XPOLY 
#0, 66$ 


6 
‘ws PC ,BCCLD 


PATACEK? él 
DATACLK 1 


Cc 
JSR Pe sinece 


BCS 68S 
ISR PC. GETQO 
BCC 69$ 

HLT le 

BR 69$ 

ISR PC GETQO 
BCS 69$ 

HLT 16 


66$ 
MOV CALBCC 67S 


;R1_ CONTAINS x3 oes ADDRESS 
TER Me AR 


; CLEAR OLD SOFTWARE BCC 
;LOAD_ OUT SILO WITH 2 SYNCS 
5 AND HE R 

T_TRANSMITTER ACTIVE 
: SHIFT BCC_ONCE 


;BUMP SHIFT COUNT 
; CALCULATE SOFTWARE BCC LS8 


‘DATA CHARACTER 


:0 
:BR IF SOFT BCC LSB IS SET 
GET HAROMARE TRANSMITTER BCC LSB 
!BR IF HARD BCC LSB IS CLEAR 
} LSB IS SET 


DWARE TRANSMITTER BCC LSB 
‘BR IF HARD BCC LSB IS SET 
;ERROR, HARD BCC LSB IS CLEAR 


;SHIFT SOFT DATA 
;LOAD OLD SOFT 8CC 


6076 


D 


see 5 


sess 
ee 


st 


§ 


SpREERES US GODT 
SSN SSESSERSENSEES 


bb bs be be bo pb pe be be pe pe 


3 


ENSZERNBSNOFLS 


Y11_ 30( 1046) 
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000010 


027446 


027446 


020072 
027320 
000010 


000043 
020462 
020176 


004000 
027662 


120001 
000377 
020254 
027322 


001220 


027316 
020072 


020074 


001226 
001216 
001220 


027316 
O20e5e 


718: 


72$: 


733: 
74S: 


758: 


768: 


773: 


TST43: 


64S: 


MO6 


CMP #10,RO 
BNE 6S$ 

SCOP 

MOV #71$, LOCK 
JSR PC, CLRIO 
CLR RO 

MOV #CRC16, XPOLY 
MOV #0,73$ 

CLR 74 

J R PC, BCCLD 
DATACLK, 32 
DATACLK: 1 
INC 

ISR RS, SIMBCC 
0 

0 

BCS $ 

JSR PC GETQI 
BCC $ 

HLT 1 

BR 6$ 

JSR PC, GETQI 
BCS $ 

HLT l 

ROR 73S 
MOV CALBCC, 74S 
CMP #10, RO 

BNE 

SCOP 

SCOPE 


PAGE: 


ET? 
F NOT DONE 
REA TEST (SWO9=1) 


CLEAR BCC_REGISTERS 
;START SHIFT Cure AT ZERO 
;LOAD POLYNOMIAL 


FOR SOF ts BCC 
; LOAD FOR SOFTWARE BCC 
CLEAR OLD SOFTWARE BCC 
LOAD OU SILO ae 2 SYNCS 


; AND C 

GET RECEIVER ACTIVE 

;SHIFT BCC 1 COUNT 

BUMP SHIFT 

; CALCULATE SOP THARE BCC LSB 


ONE SHI 
‘DATA CHARACTER 

OLD BCC 

‘BR IF SOFT BCC LSB IS SET 
‘GET CEIVER BCC LSB 
"BR IF HARD BCC LSB IS CLEAR 
“ERROR, BCC LSB IS SET 

: CONTINUE 

;GET HARDWARE RECEIVER BCC LSB 
‘BR IF HARD BCC LSB IS SET 
“ERROR, BCC LSB IS CLEAR 


; SHIFT SOFT DATA 
; LOAD ow , SOFT BCC 


R IF NOT DONE 
;SCOPE SUBTEST (SHO3=1) 
‘SCope THIS TEST 


gp Sesaseeetean TPERATION TEST YQ RHRRRRRERRAAAAL REEL ERLE ELLE 


*TEST OF CRC OPERATION 
t XUSING THE CRC16 t hate SINGLE CLOCK ne CHARACTER 
C_ON EACH SHIFT 


cc 
: s REGRRRA ERA AREAL AERA RELA AREAL EARLS REL SEALE ELLA L LALA SEAL LELAAEE 


4377, VERI 

; TEST 43 

Mov #43, TSTNO 
MOV #TST44. NEXT 
MOV #64, LOCK 
MSTCLR 

MOV #BIT11,(R1) 
JSR PC, CLRIO 
CLR RO 

MOV #CRC16, XPOLY 
MOV #377, 66S; 
CLR 675 

ISR PC, BCCLD 


3R1 CONTAINS BASE DMC11 ADDRESS 
; MASTER oe DMC11 


BCC_REGISTERS 
iS TART SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR one BCC 
;LOAD CHAR FOR aoe TWARE B 
SCLEAR OLD SOFTWARE BCC 
LOAD OUT SILO WITH 2 SYNCS 


0077 


NO6 


MACY11 30(104%6) L1-JUL-77 11:40 PA PAGE: 
RSNF pil + 3061078 14:18 Baste RECEIVER TESTS _ 
3063 020230 000377 377 ;AND THE CHARACTER 377 
3064 020232 104415 000021 DATACLK, 21 ‘GET TREMGAITTER ACTIVE 
3065 020236 104415 000001 6SS: DATACLK, l i SHIET 8 
Shes BStsuq Bosear ORS ay eon 
027212 SR RS, SIMBCC CALCULATE WARE BCC LSB 
3068 020250 000001 1 -ONE SHIF 
3 000000 665: 0 SATA AIARACTER 
959009 67§: 0 
070 04737 027434 rca 5 SscT00 : 7 HARDUARE ba th R BCC LSB 
3074 04012 ate eis @ Cc LSB I 
3075 BR Ss $60 ONT 
3076 004737 027434 68S: JSR PC GETQO HARDWARE TRANSMITTER BCC LSB 
3077 103401 BCS 69$ oh IF HARD SRR nD ace LSB IS SET 
3078 104016 ut HLT l ‘ERROR, HARD BCC LSB IS CLEAR 
3080 020252 ROR 66S ;SHIFT SOFT DATA 
3081 013737 O27320 O20254 MOV CALBCC 67S ‘LOAD OLD SOFT BCC 
3082 o¢2700 000010 CMP a :D ae 
3083 1346 ;BR T DONE 
3084 104401 SCOP +B OPE SUBTEST (SWO9=1) 
3085 bie? ? 332 001220 MOV re LOCk : NEW 
7 7bbe 71$:* JSR t ‘CLEAR BC 1 pEGIST ERS 
3088 012737 1 1 027316 Vv acacl XPOLY stent ST ONTaS EDR. SOF TE ree BCC 
] ; 
3089 012737 nance 020406 MOV #377 BC 1BAS . iLOab EAR EO FOR SF! Fake Bcc 
3090 005037 020410 CLR 74$ ‘CLEAR OLD SOFTWARE 
3091 004737 027322 ISR PC, BCCLD ; LOAD OUT SILO WITH B SNCS 
3092 000377 377 HE CHARACTER 377 
3093 020366 104415 900032 a DATACLK, 32 1GET RECEIVER ae 
shee a0 bpespg 20000 RCN an i BUMP SHIFT COUNT 
30% 004537 027212 JSR RS, SIMBCC ‘CALCULATE SOFTWARE BCC LSB 
3097 O20404 000001 l :ONE SHIFT 
3098 0& o00000 733: 0 ;DATA CHARACTER 
3099 10 00000 745: 0 C 
3100 O20412 103405 BCS 75$ BR IF SOFT BCC LSB IS SET 
3101 020414 004737 027446 ISR PC. GETQI ‘GET HARDWARE RECEIVER BCC LSB 
3102 Oe0420 103006 BCC 76$ :BR IF HARD BCC LSB IS CLEAR 
3103 104013 HLT 13 Cont BCC LSB IS SET 
3104 O20424 O00404 BR 76$ iC 
310S Oe0426 004737 027446 75S: JSR*  PC,GETQI HARDWARE RECEIVER Bcc LSB 
3106 O20432 103401 BCS 76$ ‘BR TF HARD BCC LSB IS 
3107 020434 104017 HLT 17 ‘ERROR, BCC LSB IS clear 
3198 020436 763: 
3109 020436 006037 O20406 ROR 73 ;SHIFT SOFT DATA 
3110 Oeo44e 013737 027320 o20410 MOV CALBCC, 74S LOAD OL, SOFT BCC 
3111 Oe04SO O22700 o000i0 CMP #10,R0 ;DONE_¥ 
3112 O204S4 001346 BNE 72$ :BR IF N ot DONE 
3113 O20456 104401 SCOP :SCOPE SUBTEST (SWO9=1) 
3118 020460 104400 773: SCOPE :SCOPE THIS TEST 
3116 
3117 ; RERALSALAREAL RELA REA AER EEE TEST YY HRRRERARAARARARRRERESLA REESE 
3118 :#TEST OF CRC OPERATION 


ow J 
B07 
DZDME  MACYLI 30(1046) L1-JUL-77 11:40 PAGE 60 PAGE: 
DZOME.P11 12-MAY-77 14:18 BASIC RECEIVER TESTS 


3136 s BUSING THE CREIE POLY NOnTL: pel GEnty GHIET OS 
3121 aTest TERT MITTER FIRST THEN fhe NeEE IVER’ BCC 

sigs . s EERRERESES SLES ESE SSR ERE RAELA SALE SSS SSE ERE SAALA LALLA SAAS ELAS ES 
1 

3124 ; TEST 44 

3126 Oe0462 012737 OO0044 001226 TST44: MOV #44, TSTNO 

3127 O20470 012737 O20776 O0lel6 MOV aTST4S NEXT 

3128 Oc0476 Ole737 O2e0Sie O01e20 MOV 64S, LOCK 

3129 sR1_ CONTAINS BASE DMC11 ADDRESS 
3130 020504 104412 MSTCLR 'MASTER CLEAR DMC11 

3131 020506 012711 o04000 MOV #BIT11, (RL) :SET LU LOOP 

3132 020512 004737 027662 64$: JSR PC, CLRIO CLEAR BCC REGISTERS 

3133 O20S16 CLR R ‘START SHIFT COUNTER AT ZERO 
3134 020520 012737 120001 027316 MOV #CRC16,XPOLY | ;LOAD POLYNOMIAL FOR SOFTWARE BCC 
3135 O20S26 012737 000125 020566 MOV 8125, 665; LOAD CHAR FOR SOFTWARE BCC 
3136 Oe0S34 005037 020570 CLR 7§ ‘CLEAR OLD SOFTWARE BCC 

3137 O20S40 004737 027322 JSR PC, BCCLD ‘LOAD OUT SILO WITH 2 SYNCS 

3138 020544 000125 125 AND THE CHARACTER 12S 

3139 Oc0S4 104415 000021 DATACLK, 21 ‘GET TRANSMITTER ACTIVE 

3140 O20S5S2 104415 000001 65S:  DATACLK, I ‘SHIFT BCC_ONCE 

3141 020556 005200 INC RO ‘BUMP SHIFT COUNT 

3142 O20S60 004537 027212 JSR RS, SIMBCC ‘CALCULATE SOFTWARE BCC LSB 
3143 020564 000001 1 :ONE SHIFT 

3144 020566 000000 b6$: O DATA CHARACTER 

3145 020570 000000 678: O OLD BCC 

314% 20572 103405 BCS 68S ‘BR IF SOFT BCC LSB IS SET - 
3147 020574 004737 027434 ISR PC, GETQO ‘GET HARDWARE TRANSMITTER BCC LSE 
3148 O20600 103006 BCC 69$ ‘BR IF HARD BCC LSB IS CLEAR 
3149 O20602 104012 HLT 12 ‘ERROR, BCC LSB IS SET 

3150 Oc0604 O00404 BR 695 : CONTINUE 

3151 20606 004737 027434 68$: JSR PC GETQO : GET TRANSMITTER BCC LSB 
3152 Oe06l2 103401 BCS 69$ :BR IF HARD BCC LSB IS SET 

3153 020614 104016 HLT 16 ‘ERROR, HARD BCC LSB IS CLEAR 
3154 020616 69S: 

3155 020616 006037 ROR 66S ;SHIFT SOFT DATA 

3156 OGee22 013737 927320 020570 MOV CALBCC,67$ *LOAD OLD SOFT BCC 

3157 020630 022700 O00010 CMP #10,RO DONE YET? 

3158 020634 00134 :BR IF NOT DONE 

3159 020636 104401 SCOP1 ‘SCOPE SUBTEST (SWO9=1) 

3160 O20640 012737 O20646 001220 MOV #71$, LOCK NEW SCOPE 1 

3161 O2e06%6 004737 71$: JSR PC, CLRIO ?CLEAR BCC REGISTERS 

3162 O206S2 005000 CLR ‘START SHIFT COUNTER AT ZERO 
3163 020654 012737 120001 027316 MOV BCRC16,XPOLY § ;LOAD POLYNOMIAL FOR SOFTWARE BCC 
3164 012737 000125 020722 MOV #125, 73S; ‘LOAD CHAR FOR SOFTWARE BCC 

3165 020670 005037 0207 CLR 4 *CLEAR OLD SOFTWARE BCC 

3166 020674 004737 027322 JSR PC,BCCLD ‘LOAD OUT SILO WITH 2 SYNCS 

3167 020700 o00125 125 ‘AND THE CHARACTER 125 

3168 O20702 104415 000032 DATACLK, 32 GET RECEIVER ACTIVE 

3169 020706 104415 000001 72$:  DATACLK. 1 ‘SHIFT BCC ONCE 

3170 020712 005200 INC RO BUMP SHIFT COUNT 

3171 020714 004537 027212 JSR RS, SIMBCC ‘CALCULATE SOFTWARE BCC LSS 
3172 Oe07e0 000001 1 : HIFT 

3173 020722 occoc0 738: OO :DATA CHARACTER 

3174 029724 900000 743: OO :OLD BCC 


DZDME -NACY1IL 30; 1046) L1-JUL-77 11:40 PAGE 61 PAGE: 
DZDME.P11 l2-MAY-77 14:18 BASIC RECEIVER TESTS 
1 BC 75 :BR_IF SOFT LSB IS SET 
ee Benes Ag3398 027446 IS PC, GETQI :GET ARDUARE aati BCC LSB 
be07 34 193008 BCC $ :BR IF HARD BCC LSB IS CLEAR 
104013 HLT 13 ‘ERROR, BCC LSB IS SET 
020740 BR : CONT INUE 
Q20742 CO4737 027446 75$: JSR PC, GETQI ‘GET HARDWARE RECEIVER BCC LSB 
746 10340 BCS 76$ -BR IF HARD BCC LSB IS SET 
rae 10401 T 17 ‘ERROR, BCC LSB IS CLEAR 
020752 76S: 
020752 006037 020722 ROR 73S ;SHIFT SOFT DATA 
020756 013737 Oe73e0 020724 MOV CALBCC, 74S i LOAD OLD SOFT BCC 
020764 022700 O00010 CMP #10, RO : YET? 
020770 001346 BNE 725 ‘BR IF NOT DONE 
020772 104401 SCOP1 ‘SCOPE SUBTEST (SWO9=1) 
020774 104400 77$: SCOPE ‘SCOPE THIS TEST 


HBHHEHHHHHHHEEEEHHHHHEEHEEE TEST 4S £#ttkeeeeeeeeeeeee ee et eeets 
: #TEST OF CRC OPE 

: USING THE CRC16 POL NATAL SINGLE CLOCK ne CHARACTER 

#252 VERIFY THE LSB OF THE BCC ON EACH SHIFT 

Test TRANSMITTER FIRST THEN THE RECEIVER BCC 

2 REESE EEE EE EEE Ee a a ee 


WJWWWWIWOIWW WWWWWWWWWWWWWl) 
+ b= = b= Bs bs be be Be bo Bs be Be Be Be Oe be Be he Pe ee 
BESRRLSHLSSBIRRISRH S383 


; TEST 45 

a Se Te ee Ree ae ee Sa >t Reememenenenlia 

3201 020776 012737 OO004S O01226 TST4S: MOV STNO 

3202 O21004 Ol 021312 OOlel6 MOV sretue NEXT 

3203 621012 021026 o01220 MOV #64$, LOCK 

3204 ;R1_ CONTAINS BASE DNCL1 ADDRESS 
3200S o21020 104412 MSTCLR MASTER CLEAR DMC11 

3206 Oel02e2 012711 oo4000 MOV #BIT11, (RL) SET LU L 

3207 021026 004737 027662 64S: JSR PC, CLRIO ‘CLEAR BCC REGISTERS 

3208 021032 o0S000 CLR RO START SHIFT COUNTER AT ZERO 
32039 021034 012737 120001 027316 MOV WCRC16,XPOLY {LOAD POLYNOMIAL FOR SOFTWARE BCC 
3210 Oel042 012737 O002S52 021102 MOV #252, 66S; LOAD CHAR FOR SOFTWARE BCC 

3211 O210S0 005037 021104 CLR 675 CLEAR OLD SOFTWARE BCC 

3212 021054 004737 927322 JSR PC, BCCLD ‘LOAD OUT SILO WITH 2 SYNCS 
3213 021060 o002S2 252 SAND THE CHARACTER 252 

3214 021062 104415 000021 DATACLK, 21 GET TRANSMITTER ACTIVE 

3215 021066 104415 000001 65$:  DATACLK, l :SHIFT BCC ONCE 

3216 021072 O0S200 INC RO BUMP SHIFT COUNT 

3217 021074 004537 027212 JSR RS, SIMBCC :CALCULATE SOFTWARE BCC LSB 
3218 021100 000001 1 ONE SHIFT 

3219 021102 000000 66$: O DATA CHARACTER 

3220 021104 o00000 678: 0 -OLD BCC 

3221 021106 103405 BCS 68S :BR IF SOFT BCC LSB IS SET 
3222 021110 004737 027434 JSR PC, GETQ0 ‘GET HARDWARE TRANSMITTER BCC LSE 
3223 021114 103006 BCC 69$ ‘BR IF HARD BCC LSB IS CLEAR 
3224 O21ll6 104012 HLT 12 ‘ERROR, BCC LSB IS SET 

3225 021120 4 BR 69S : CONT INUE 

3226 Oelle2 004737 027434 68S: JSR PC, GETQO GET HARDWARE TRANSMITTER BCC LSE 
3227 Oelle6 103401 BCS 69¢ :BR IF HARD BCC LSB IS SET 

sec 21130 104016 Ca HLT 16 ‘ERROR, HARD BCC LSB IS CLEAR 
3230 021132 006037 021102 ROR eS :SHIFT SOFT DATA 


DZDME  MACY11 30( 1046) 
12-MAY-77 14: 


DZDME.P11 
3231 021136 
S32 021148 
Sy OBLie 
3235 21154 
3236 021162 
3237 021166 
ee Bin 
3240 021204 
3241 21210 
3242 21214 
3243 O2lel6 
3244 O2le2e 
3245 Oelee6 
3246 021230 
3247 021234 
3248 021236 
3249 21240 
3250 Geleve 
3251 el1e44 
see Oeles0 
3253 Oelese 
3254 021254 
3255 021256 
3256 Oelebe 
3257 21264 
3258 Oelet6 
3253 O2le66 
3260 021272 
3261 021300 
3262 021304 
3263 021306 
3264 021310 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 021312 
3276 021320 
3277 
3278 021326 
3279 021330 
3280 021334 
3281 021336 
3282 021340 
3283 021342 
3284 021346 
3285 021354 
3286 021360 


013737 
Oe 


104400 


012737 
012737 


104412 
012711 
005003 
00S005 
005037 
012737 
004737 
010461 
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027320 021104 
000010 


021162 001220 
027662 
i20001 027316 
000eSe 021236 
021240 
027322 
000032 
000001 
027212 


021240 


ooco4e Oo 
Oeissc 0 


oo4000 


021444 
027316 


ocoo04 


718: 


TST46E: 


DO? 


MOV CALBCC,67$ 
CMP 810,RO 
Sao 

MOV #71$ LOCK 
JSR ,CLRIO 
CLR 

MOV #CRC16, XPOLY 
MOV 8252, 738; 
CLR 

JSR PC, BCCLD 
252 

DATACLK, 32 
DATACLK: l 
INC RO 

ISR RS, SIMBCC 
0 

0 

BCS 75$ 

JSR PC, GETOI 
BCC 76$ 

HLT 13 

BR 76S 

JSR PC. GETQ! 
BCS 76$ 

HLT 17 

ROR 73$ 

MOV CALBCC, 74S 
CMP 16,R0 

BNE 2s 

SCOP1 

SCOPE 


Loe ne, SOFT BCC 


o EE com 


ace "REG 


ange 


3 


I 
C 
ET COUNT 
T 


tf 
DOD 


SRSPs 


ge gg 


a 


;SHIFT SOFT DATA 
; LOAD sere Bcc 


T_DONE 
SCOPE SUBTEST (SWO9=1 ) 


SCOPE THIS TEST 


PAGE : 


saeoemeresen eaneeeeeeeeeee TEST 4G RHRRRRRRSS ESR EERSTE EE EEEES 


; TRANSMITTER CRC T 
#USING THE CR 
: xCOUNT PATTERN, VERIFY 


S ipeannanantagionsotenmnenat 


; TEST 46 

Mov #46, TSTNO 
MOV 8TSt4?, NEXT 
MSTCLR 

MOV SBIT11,(R1) 
CLR R3 

CLR RY 

CLR RS 

SLR 4 

MOV #CRC16, XPOLY 
JSR PC, SYNLD 
MOV R4'4iRI) 


C16 POL YMONT NA, SINGLE CLOCK A BINAR 


LSB OF THE TRANSMITTER Bec ON EACH SHIFT 


;R1_ CONTAINS aad OMC11 ADDRESS 


;CLEAR SOFT 
:LOAD 


: PORTY*CHAR 


UN 
ONTAINS CHAR TO BE LOADED IN 
RS CONTAI vate CURRENTLY BEING 


POL YNOMINAL 
; LOAD wee WITH 2 SYNCS, SOM SET 


RKLLHAARERSLALASAARLARERAARA LALA RAS 


008: 


BSBNE.p 


3287 
3288 
3289 


cReBsaeoeones 


Beaune 


esataesataesstae 
WOnNMUICWr-O 


SRSERES 
FOPUOOFUTURUOFUFUFUFUOFOTUTURD «fOFUFU Foro fo Fofufofofororo rofofufofoforofofoforore 


b= = b+ bh b= b+ bb bb bs bh he he he bs bs bs bb = bh P= bh + = bb DP b= bs be he he bP He he me 


MACY11_30( 1046) 


12-MAY- 


seas | 


SESS SS£LL&S£ 
— ee 
£MVvo 


P oi 
rf 


52828 


KeRoosE 


aT 


GOREN ScReeaN S 


&ES 


021550 
0215 


001327 
104406 


ll-JUL-77 11:4 
14:18 


000004 


021442 
027320 


000010 


021444 


000400 
900004 


000400 


000047 O0icet 
O22006 O0lelé 


EQ? 


Baste “ee iver TESTS 


3$: 
4$: 


S$: 


6$: 


9S: 


7$: 


TST4?: 


ROMCLK 
122110 
INC ied 
V RY, 4(R1) 
ROMCLK 
122110 
INC Bay 
MOV R4,4(R1) 
ROMCLK 
122110 
JSR PC,0 
DATACLK, 21° 
MOV RS,3 
DATACLK, 1 
es "RS, SIMBCC 
0 
0 
BCS S$ 
JSR PC, GETQO 
BCC 6$ 
HLT 20 
a8 6$ 
JSR PC, GETQO 
BCS 6$ 
HLT 21 
ROR 3$ 
MOV CALBCC,4$ 
INC R 
CMP #10,R3 
BNE 2s 
CLR R3 
INC RY 
CMP 8400, R4 
BLE 
MOV RY, 4(R1) 


RS 
CMP = #400, RS 
De 7 
SCOPE 


PAGE: 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
;LOAD_ OUT DATA 

; INCREMENT TO NEXT CHARACTER 

;PORT4+CHAR 

;NEXT i 1S INSTRUCTION, ROMCLK PC=S304 


OUT DATA 
} INCREMENT TO NEXT CHARACTER 


Ye 
NEXT ih ae 13 INSTRUCTION, ROMCLK FC=S304 
;WALT POR SCOR 
OCK DATA 
;LOAD CHAR FOR SOFT CRC 
ONCE 


2 


SOFT BC 
jBR IF SOFT BCC LSB IS SET 
T HARDWARE TRANSMITTER BCC LSB 
:BR IF ok (CLEARED) “i 


‘ERROR L 
:CONTIAUE WITH TEST x 
- GET TRANSMITTER BCC LSE 
:BR IF OK (SET) 
‘ERROR, BCC LSB WAS CLEAR 
:SHIFT SOFT DATA 
OLD SOFT 


; LOAD BCC 
LINCREMENT BIT COUNTER 
:DONE A FULL CHARACTER YET? 
:BR_IF NO 

:RESTART BIT COUNTER 
S INCREMENT DATA FOR SILO 
[DONE BINARY COUNT YET? 
:BR IF YES 
;PORT4+DATA oe ee 
{NEXT WORD IS INSTRUCTION, ROMCLK FC=5308 
:LOAD QUT DATA 

S INCREMENT DAT 
SORE BINARY PATTERN YET? 


SCOPE THIS TEST 


sRERERERAERRRARERRERERAAEAES TEST 47 ReReeReReeSARR ERA REARAAS ES 


; #RECEIVER CRC 


TEST 
#USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINAR 
E SCOUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC “oN ERCH SHIFT 
eee ruessusesberesacscacsesrcoscnssseascsacnsseccensnearaeces® 


; TEST 47 


hov #47, TSTNO 


MOY eTStSO, NEXT 


o082 


bShre.eul 


RNa ERY 


wo 
FORO Fo fofo fu Fo F0 FU Fofo FG Foruru Fo Foro Fu fora fo foru fu Fura fufOro Furuta 


i 


uw 


o 
= 


bb b= be bp bs be pb be he Pe he fe bb bb be be be be 


RERR RR 
PPh SNNINNN 
DEBS 


RRRRERRRERREE 


tur 


© 


1 30( 1046) 11-JUL-77 
l2-MAY-77 14:18 
S64 104412 
pherat oo4000 
74 005004 
576 005005 
600 2 021702 ; 
er ee 
& O104%61 
a 104414 
122110 
626 005204 
630 010461 O00004 
634 104414 
636 122110 
640 005204 | 
64e 010461 O00004 
646 104414 
650 E419 
6S2 7 026350 
656 10441S 0000 
662 010537 0217 
666 104415 000001 
672 O04S37 Oe7ele 
676 000001 
700 000000 
702 000000 
704 103405 
706 004737 027446 
le 103006 
14 104022 
16 000404 
1720 004737 O27446 
24 103401 
104023 
37 021709 
013737 027320 
005203 
744 022703 000010 
750 O01 
752 
7S4 
756 022704 ooo4oc 
762 04 
764 010461 900004 
770 104414 
772 122110 
774 0052 
776 O2270S o00400 
O02 001327 
04 194400 


027316 


021702 


11:40 PAGE 6&4 


FO? 


BASIC RECEIVER TESTS 


fr 


3$: 
4§: 


S$: 


o$: 


9$: 


MSTCLR 
M 


OV seTtis, (md) 
CLR R3 

CLR aa 

CLR 

he aCRC16,XPOLY 
Tee sERCIG) 3 
MOV R4, sre 
ROMCLK 

122110 

NC fa 

OV R4Y,4(R1) 
ROMCLK 

122110 

INC a4 
MOV RY, 4(R1) 
tenis 

gett oe ocor 
DATACLK, 32” 
MOV ‘eae 
DATACLK, 1 
we RS,SIMBCC 
9 
0 
Bcs $$ 
JSR PC ,GETGI 
BCC 6$ 
HLT 22 
De 6$ 
JSR PC ,GETQI 
BCS 6$ 
HLT 23 
ROR 3$ 
MOV CALBCC 4S 
INC R3 
CMP #10,R3 
BNE 2s 
CLR R3 
INC Rea 
CMP #400 ,R4 
BLE 9$ 
MOV R4Y,4(R1) 
ROMCLK 
122110 
INC gS 
CMP #400.8S 
NE \$ 
SCOPE 


PAGE: 
>R1 ad : oo POORESS 
EE Bee 
a 
= RY CONTAINS CHAR TO BE LOADED IN SILO 
ere A CURRENTLY BEING SHIFTED OUT 


wer ae esti SYNCS, SOM SET 


aa WOO, 


; INCREMENT TO NEXT CHARACTER 


INSTRUCTION, ROMCLK PC=S304 


NeXT +CHAR 
XT WORD is INSTRUCTION, ROMCLK PC=S204 


; LOAD 
; INCREMENT 0 NEXT CHARACTER 


3 sorT Bcc 
BR IF SOFT BCC LSB_IS SET ki 
HARDWARE RECEIVER 3¢¢ LSB 
;BR_IF 0k COLEARED) 
OR, BCC LSB WAS SET 
: CONTINUE ar TEST Pk 
HARDWARE RECEIVER SCC 


:BR IF ok SETS 
ERROR, BCC LSB WAS CLEAR 


'- 
wn 
(to 


; SHIFT SOFT DATA 

;LOAD_ OLD SOFT BCC 
STNCREMENT BIT COUNTER 
00 » * ae CHARACTER YET” 
RESTART BIT COUNTER 
{NCRENENT DATA FOR SILO 


;DONE BINARY COUNT YET? 
:BR IF M+ 
:PORTH+ 


OUT 
INCREMENT DATA 
:DONE_BINARY PATTERN YET? 


;BR IF NO 
:SCOPE THIS TEST 


:PORTY+C 
;NEXT rn A mataara at ROMCLK PC=5204 


+DAT 
3 NEX T WORD "IS, INSTRUCTION, ROMCLK PC=S5304 


0CE83 


DIONE 
DOME . 


3399 
00 


ra a + 4 
BRIFA LB 


0 b= b= b= be b= bo Bs Be Be 
WONM UL WhO 


fu 
-_ 


Pee ee PEEP EE 
ees 


Ww 
fu 
BS 


MACY11 30: 1048) 


Pll 


l2-MAY-77 1 


012737 
012737 


104412 


012711 


005203 
022703 


11-JUL-77 
14:18 


o0090So O0lees 
022340 001216 


120001 
Qeel2b 
O27ele 


7320 
0001 
026316 


026316 


000010 


027316 


022136 


11:40 PAGE 6S 


BASIC RECEIVER TESTS 
; RERREEEEEREREEEEEREEEEREEEE TEST SD seeeeeeeeeeseeeeeneeesseees 


TSTSO: 


12S: 


65S: 


ces: 


;#TRANSMITTER DOCMP 


cre 
;#THIS 3 TRANSHITS, 
:#BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT 


TU ENOOH NOnETTOR 1S CHECKED FOR GOING TO AR 


rest 
FOUR CHARACTER MESSAGE WITH CRC 


PAGE: 


377 
MARK STATE AFTER THE 8CC 


ee eee eeGOASTEGPESESERORODSSESSESEOBSODSDEODSI0000000000088 


; TEST SO 


hov #50, TSTNO 
MOV #TStS1, NEXT 


MSTCLR 

:LOAD OUT DATA SILO 

MOV 081711 (RL) 

MOV spat .R 
tos 


84, RO 
JSR PC’ SYNLD 
JSR —s- PG, OUTRDY 
JSR _ RS, MESLD 


4 
JSR PC ,EOM 
JSR PC‘ OCOR 
CLR RS 

DATAC 


LK,22 
MOVE (R4)+,RS 
MO RS,Re 


NTAINS BASE DMCi1 ADDRESS 
R CLEAR DMC11 


NUMBER OF CHARACTE 
GARBAGE 


L 
;WAIT FOR OCOR 
: CLEAR : 


: CLOCK 
:LOAD RS WITH CHAR 
:LOAD R2 WITH CHAR 


;CHECK FIRST FOUR CHARACTER MESSAGE 
:IN THE BIT WINDOW (0, 125,252,377) 


MOV #CRC16,XPOLY 
MOV RS,67 
JSR RS,SIMBCC 


MOV CALBCC. 108 
Lk 1 


sLOAD POLYNOMIAL 
;LOAD SOFT CHAR FOR BCC 
CALCULATE SOFT BCC 


Ore 
ORO Soe T BCC FOR_NEXT SHIFT 
T DATA we re BIT WINDOW 


7LO 
:BR IF OK (MARK) 7 
sERROR, BIT WINDOW WAS A SPACE 
CONTINUE 

LOOK AT BIT W 
‘BR IF OK (SPACE) 
: ERROR, BIT WINDOW WAS A MARK 


;BUMP BIT COUNTER 
;DONE FULL 8 BITS YET 


CHARACTER, WITH £OM SET 


oce4 


ZOME  MACY11 3011046) 


DIZOME.P11 12-MAY-77 14:1 


Fe So eh 


3473 


san eeeERE DR 


fo furore 
furur 


022340 
Ce234€ 


13$7 


104400 


012737 
012737 


027320 
000001 


026316 


026316 


o00ded 


900020 


000051 O0lect 
OeeS4e OOlelé 
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68$: 


2s: 


3$: 


4$: 


S$: 


TSTS1: 


a eee TE 


BNE 12S :BR IF NOT DONE eT 
;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
MOV CALBCC, RO sPUT Bcc IN RO 
DATACLK, | !SHIFT HARDWARE BCC 
ROR ‘RO :SHIFT SOFT BCC 
BCC 695 :BR IF CARRY CLEAR 
ISR PC GETSI ‘LOOK AT BIT aliTNdou 
BCS o$ :BR IF OK ( 
HLT 14 : ERROR CRC MIRONG (SPACE) 
BR 70$ :CONTI 
JSR PC. GETSI LOOK AT BIT WINDOW 
BCC 70$ :BR IF OK (SPACE) 
HLT 14 TERROR, CRC WRONG (MARK) 
INC R3 :BUMP BIT COUNTER 
CMP #20,R3 ;FINISHED BCC YET? 
BNE 68$ I 
CLR R3 CLEAR BIT COUNTER 
:CHECK TO SEE IF TRANSMITTER IS MARKING 
DATACLK, l : CLOCK aTRANSHITTER 
JSR PC,GETSI sL OOK at WINDOW. 
at 3 a Pian Q Oa SPACE 
INC 3 we COUNTER 
CMP #7,R3 
BN 2g a 
DATACLK, 10 a EN UGH TICKS TO CLEAR OUT ACTIVE 
CLR R3 sty UNTER 
DATACLK, 1 : SHIF Pr ang fhe IT 
ISR PC,GETSI :L00K A BIT WI ou 
HLT 24 + BRROR "TRaRSHITTER IS NOT MARKING 
INC R3 INC 8 Bir 
CMP #20,R3 : DONE 
BNE 4g :BR at: 
SCOPE : SCOPE TAIS TEST 


; RRRREREERERRRARERRRREREEERE TEST OS] SReeeeeeeeceeeeereeeeereeee 
: €RECEIVER DOCMP C 


CRC TES 
peo OSRRECT DRTARECEPITON RAO. BCC" ATCH A 


aT CHARACTER MESSAGE IS 0, 125,252,377 
ssoacnabouapncanonseesssessesannbonndesstenauneenensnennedeants 


; YES’ $i 


Mov #51, TSTNO 
MOY aTStS2, NEXT 


PAGE: 


ooes 


DZDME  MACYI1 3011046) 1L1-JUL-77 
DZOME.P11 12-MAY-77 14:18 
1 
3213 022354 104412 
eis eee tee Ga 
is Sees 018700 0000s 
zo18 O2237e 004737 O27464 
3$1 2376 004737 65 
3518 Oee%de oO4S 027’ 
3819 Oee406 030102 
3820 022410 
3521 Oee%ie 004737 0275 
3See Oe2e416 004737 Oeb3 
3$e3 Oeev¥ee 104415 000114 
3$2e4 O2e426 004737 027156 
3525 Oee43e 104414 
3$e6 Oee434 021204 
3$e7 022436 016104 000004 
3528 Geevwe 112 
3529 d2ee444 1205 
3530 Oee446 001401 
3531 d2e4S0 sae 
ae 
3635 055485 ores 
3534 
3835 
337 737 027156 
332 Geeues losis 
3539 022464 021204 
3540 116137 000004 00 
3541 Oee474 O4e737 177400 00 
ay OeeS0e ak od 027156 
Seay e080 Oe1244 
3545 OeeSlie 016104 o00004 
3S 022516 O4e704 000376 
3S4 012705 000001 
3548 OeeSe& 120504 
3550 Osesae 104015 
221 ese 
3552 OeeS34 te 
eey 056800 648 
3$55 
3556 
3557 
3558 
3559 
2560 
3561 
3S6e 
2563 
3564 
3Sés 


11:40 PAGE & 
BASIC RECEIVER TESTS 


3$: 


1$: 


ess: 


es: 


ROMCLK 


SedRE 


10? 


WBITI1, (RL) 
eae Re 
a 


"PC, INRDY 


4(Ri),RY 
(R2)+,R5 
RS, RY" 


: 


PAGE: 


Teo RR wth DMC11 PDORESS 


pk ae 


3L OAD 2 SYNC rns Ty OUT SILO 
;WAIT FOR OU 
;LOAD SILO WITH. 4 CHAR MESS 
;ADDRESS OF MESSAGE 
ty o> wr OF CHARACTERS 

LOAD GARBAGE CHARACTER, WITH EOM SET 
WATT FOR _OCOR 
CLOCK DATA 
WAIT FOR INRDY 
NEXT WORD IS INSTRUCTION, 
GET IN DATA 
;PUT “FOUND” IN RY 
PUT “EXPECTED” IN RS 
:C Wace RECEIVED DATA 


;BR 
DATA E 


:DEC, 


ROMCLK PC=S304 


AARACT R_COUNT 
NOT DONE YET 


TO SEE THAT IN BCC MATCH IS SET 


PC, INRDY 


4(R1), TEMP3 
#177400, TEMP3 
NRDY 


’ 


4(R1), RY 
4 


WAIT FOR INRDY 
NEX XT WORD IS INSTRUCTION, 
:GET FIRST HALF OF CRC 
;PUT IN TEMP3 
CLEAR HI BYTE 


T FOR INROY 
;NEXT WORD IS INSTRUCTION, 
T “FOUND” IN 
ae UNWANTED ee 
“EXPECTED” IN RS 
S IN BCC MATCH SET? 
;IN BCC MATCH ERROR 


;NEXT WORD ALE INSTRUCTION, 


rGETLA i EST 


ROMCLK PC=S304 


ROMCLK PC=5304 


ROMCLK PC=S304 


eres eS aman TEST SO R¥xREERRERESSERRAREESRELEES 


; #DDCMP 


HE CHARCT 


ST FOR cLaRaC IS TeR Prone “Teo °3 


EOM FUNCTION TEST 
:*THIS Tole Loe OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,£0M 
HARACTER MESS,EOM. THE DAT 


# 
a4 CHAR. BCC.4 CHAR, BCC, MARKS. 
Tes pkQRbeD WITH Eon SE 


TREAM {S CHECKED TO SE 
THI TEST _VERIFYS THAT 


D IN THE BIT WINDOW 
t¢ a ae IS CHECKED 


He SR EDESSEDESTENSranATehanSHANSHEDEMRSREREARESEEROREEEOERER 


O08t 


DZDME MACY11 30(1046) 


DZDME.P11 12-MAY-77 14:18 


ve) 
~_— 


Seo mneoee Bae aeRaaeeS 


pea 
mun © WHO 


3617 


Oees42 
SO 


012737 
012737 


10441e 
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o000S2 O0lee6 
Ge364e O0ielb 


120001 
022676 
027212 


027320 
000001 
026316 


026316 


000019 


027316 


022700 


TSTSe: 


12s: 


67S: 
10S: 


64S: 


6S$: 


66S: 


JO? 


PAGE: 


; Test Se 


Mov #52. TSTNO 
MOV #TS¢S3, NEXT 
sR1 CONTAINS BASE DMC11 ADDRESS 


MSTCLR ?MASTER CLEAR DMC11 

sLOAD OUT DATA SILO 

MOV #BIT11,(R1) ;SET LINE UNIT LOOP 

MOV #MESDAT, RY ‘LOAD POINTER TO DATA 
CLR 10$ ; CLEAR SOFT BCC 
MOV #4,RO LOAD CHARACTER COUNT 
ISR PC; SYNLD iL 08 Fadl IN OUT SILO 
JSR PC’ OUTRDY ‘WAI Ou 

SR RS, MESLD sO OAD SILO. WITH. 4 CHAR MESS 
MESDAT MESSAGE 
ISR PC,E iN BARBRA RAREICTER WITH EOM SET 
JSR RS; MESLD i+ Bab oa wes CHARACTERS 
MESDAT ‘ADDRESS OF MESSAGE 

: R OF CHACTERS 

ISR PC,EOM :SET EOM 
JSR PC; OCOR WAIT FOR _OCOR 
CLR # R3 i CLEAR BIT COUNTER 
pavBC * Fu) +, RS aes Baar CHAR 


MOV RS,Re LOAD R2 WITH CHAR 


HINA” BY WINGON (0, 125,058,377). 


MOV #CRC16, XPOLY ;LOAD POLYNOMIAL 
MOV RS,67S LOAD SOFT CHAR FOR BCC 
13R RS, SIMBCC Stet cot SOFT BCC 


1 

0 ; 

0 i? 

MOV CALBCC, 10% obo Oe T BCC FOR NEXT SHIFT 
DATACLK, 1 :SHIFT DATA IN To BIT WINDOW 
RORB Re SHIFT SOFT DATA 

BCC 65S ‘BR IF A SPACE 

ISR PC. GETSI "LOOK AT err WINDOW 

BCS 66$ 


;BR 
HLT 6 ; ERROR BIT WINOOM WAS A SPACE 


BR 66S 

JSR PC, GETSI :LOOK AT BIT WINDOW 

BCC b6$ BR F OK (SPACE) 

HL 6 , BIT WINDOW WAS A MARK 
NC R3 ; BUMP oe COUNTER 

CMP #10,R3 :DONE FULL 8 BITS YET 

BNE 64S :B NO 

CLR R3 :CLEAR BIT COUNTER 

DEC RO DEC CHARACTER COUNT 


0087 


OZDOME MACY11 3011046) 
DZDME.P11 


022756 


12-MAY-77 14: 


001335 
eA es 
006000 
3005 
004737 026316 


004737 026316 


005203 
Oee703 o00020 


000004 
12704 030102 
005037 023072 


012737 120001 
010537 023070 


shal 027212 
000000 
Ra 5 


whe 026316 


004737 026316 


00520: 
peers 000010 


013700 027320 


11-JUL-77 
718 


027316 


023072 


11:40 PAGE 69 
BASIC RECEIVER TESTS 


68$: 


138: 


76S: 
118: 


738: 


74S: 


755: 


PAGE: 
BNE 128 BR IF NOT DONE YET 
sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
MOV CALBCC, RO ;PUT acc IN RO 
DATACLK, 1 SHIFT HARDWARE BCC 
ROR ‘RO SIFT SOFT BCC 
BCC 69S ‘BR IF CARRY CLEAR 
JSR PC, GETSI :LOOK AT BIT WINDOW 
BC 70$ :BR alt OK (MARK) 
HL 14 R CRC WRONG (SPACE) 
BR 70S : CONT IAUE 
ISR PC ,GETSI : LOOK cK BIT MIN WINDOW 
HL 19 BRA OR. RE URORG (MARK ) 
INC R3 BIT COUNT R, 
CMP #20,R3 iEINISHED BCC 
en Be Br EAR ary COUNTER 
MOV #4, RO :CLEBR HERECTER COUNTER 
MOV #MESDAT, RY ; LOAD TMESCHCE PO 
CLR 11$ “CLR SOFT BCC 


NOY RS, Ra” ‘tBAB MAR IN 


;CHECK SECOND MESSAGE IN THE BIT WINDOW (0, 125,252,377) 


a #CRC16, XPOLY LOS POLYNOMIAL 
RS, 763. OAD SOFT CHAR FOR BCC 


13 RS, ; SIMBCC cha + dil BCC 


0 
CALBCC, 115 : XT SHIFT 

BATACLK, 1 Can 13.8! WINDOW 

RORB Re 

BCC 745 BR a 2° iim 

ISR PC GETS! ; LOOK AT BIT WINDOW 

HLT we ERROR IT WINDOM WAS A SPACE 

JSR PC, GETSI $00 aT eI WINDOW 

BCC 75$ IF OK (SPACE) 

HLT 6 ‘ERROR, BIT WINDOW WAS A MARK 

iN nt R3 ap Bre Bite YET 

BNE Ce Ta NO 

CLR R3 :CLEAR BIT COUNTER 

DEC RO DEC CHARACTER COUNT 

BNE 13$ BR IF NOT DONE YET 

sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 

MOV CALBCC,RO :PUT BCC IN RO 


0088 


ms 
LO? 
DZDME MACYL1 30(1046) L1-JUL-77 11:40 PAGE 70 PAGE: 0089 
DZDME.P11 l2-MAY-77 14:18 BASIC RECEIVER TESTS 


3628 PSP ABYHAR 00001 778: PATACLK, J SHIET ane ecc 
ratte opera? 026316 Fe BeSceTsI PR IF Ghee BY WINDOW 


103406 BCS 79$ -BR IF OK (MARK) 
023174 104014 HLT M4. zERROR CRC WRONG (SPACE) 
3h78 737 026316 78$: JSR PC GETSI ‘LOOK AT BIT WINDOW 
023204 103001 BCC 79$ ‘BR IF OK (SPACE) 
reel 104014 om HLT 14 : ERROR, CRC WRONG (MARK) 
3210 o00S203 : INC R3 ;BUMP BIT COUNTER 
023212 022703 oo0020 CMP #20,R3 ‘FINISHED BCC YET? 


BB3528 posaes a R3 BR A Bir COUNTER 


;CHECK TO SEE IF TRANSMITTER IS MARKING 


023222 104415 000001 23: DATACLK, 1 ;CLOCK TRANSMITTER 
023226 004737 026316 JSR PC,GETSI *LOOK AT WINDOW 
023232 103401 BCS 3$ *TT SHOULD BE MARKING 
3700 023234 104024 HLT 24 ‘ERROR, BIT WAS A SPACE 
3701 023236 O0S203 33: INC R3 :BUMP BIT COUNTER 
023240 022703 000007 CMP #7,R3 : DONE 
3703 023244 001366 BNE :BR IF _NO 
02324 104415 O00010 DATACLK, 10 GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
370S O23eS2 o0S003 CLR R3 :CLEAR BIT COUNTER 
oe teen ieee Sh MPP erst! Ee a dng 
3708 O232¢64 103401 BCS 44 °BR IF IT tg A MARK 
3709 023266 104024 HLT 24 : ERROR TRANSHITTER IS NOT MARKING 
3710 023270 005203 INC R3 INC B BIT 
3711 O23272 O22703 o00020 CMP #20,R3 :DONE YE 
sie 023276 001366 BNE 4§ ‘BR IF aD 
3714 ;CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
sis WAS RECEIVED CORRECTLY (0,125,252, 377 
3717 023300 104415 o00001 DATACLK, l ;GET LAST BIT IN RECEIVER 
3718 023304 012703 o09004 MOV #4. R3 ; R3=CHARACTER COUNT 
3719 023310 012702 030102 MOV aMESDAT, R2 "LOAD MESSAGE POINTER IN Re 
3720 023314 004737 027156 4O$: JSR PC, INRDY WAIT FOR 
3721 023320 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3722 Oe33e¢2 021204 021204 
3723 023324 016104 o00004 MOV 4(R1),R4 ;PUT “FOUND” I 
3724 023330 112205 MOVB  (R2)+.RS :PUT “EXPECTED” IN RS 
3725 023332 120504 CMPB sR. R4 :IS RECEIVED DATA CORRECT? 
3726 023334 00140 BEQ 4i$ :BR IF YES 
3727 023336 10401 HLT 10 ‘RECEIVE DATA ERROR 
3728 023340 005303 41S: DEC R3 ‘DEC CHARACTER COUNT 
3728 023342 001364 BNE 4O$ :BR IF NOT DONE YET 
3731 :CHECK TO SEE THAT IN BCC MATCH IS SET 
330 "AND THAT THE BCC WAS RECEIVED CORRECTLY 


3 
3734 023344 004737 027156 JSR PC, INRDY ;WAIT FOR INRDY 


DZDNE 


MACY11 30(1046) 


DZOME.P11 


ee aS bo t2ty 


12-MAY-77 14: 


1ibi3? 


1 
001401 
104015 


L1-JUL-77 11:40 PAGE 7 
18 BASIC RECEIVER TESTS 


000004 
177400 
027156 


000004 
000376 
000001 


027156 


ooooo4 
177400 
027156 
000004 


000376 
000001 


001252 
001eSe 


0012S} 


0012Se 


001eSe 
001252 


Sos: 


42$: 
43$: 


44S: 


te 


MO? 


4(R1), TEMPS 
#177400, TEMP3 
PC. INRDY 


pill d ts 


4(RL), TEMP2+1 
8377 tM Pe 
TEMPS EMP3 
caLsce, TEMP3 


PAGE: 0090 


tag FIRST eF oF che ROMCLK PC=S304 


CLEAR Mal Ove 
tWAIT FOR INRDY 
!NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT FOUND” IN RY 
NWANTED BITS 


;CLEAR U 
:PUT “EXPECTED” IN RS 
:1S IN BCC MATCH SET? 


;IN BCC MATCH ERROR 


;NEXT WORD Wir INSTRUCTION, ROMCLK PC=S304 
GET LAST HAL 
;PUT_IN TEMP al 
; CLEAR “Beet 
;16 a As IN TEMP3 


;CHECK TO SEE THAT SECOND FOUR oe, MESSAGE 
*WAS RECEIVED CORRECTLY (0,125,252, 377 


snécDAT 82 
PC, INRDY 


;R3=CHARACTER COUNT 

:LOAD MESSAGE POINTER IN Re 

WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


T “FOUND” IN 
‘PUT “EXPECTED” iN RS 
15 RECEIVED DATA CORRECT” 


YES 
RECEIVE DATA ERROR 
:DEC CHARACTER Or 


;BR IF NOT DONE Y 


;CHECK TO SEE THAT IN BCC MATCH IS SET 
‘AND THAT THE BCC WAS RECEIVED CORRECTLY 


PC, INRDY 


4(R1). TEMPS 
#177400, TEMP3 
PC, INRDY 


4(R1),R4 
#376, R4 
#1,R5 

RS'RY 
i$ 


;WAIT FOR INRDY 
;NEXT_WORD IS pSTPs 110M, ROMCLK PC=S304 
GET FIRST HALF OF C 
;PUT IN TEMP3 
sCLEAR HI BYTE 


FOR INRDY 
"NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ite “FOUND” _IN 


L UNWANTED Bits 
PUT “EXPECTED” IN RS 
:1S IN BCC MATCH SET? 


;IN BCC MATCH ERROR 


NO? 


DZDME MACYL1 30(1046) 11-JUL-77 11:40 PAGE 72 PAGE: 0091 
DZDME.P11 § l2-MAY-77 14:18 BASIC RECEIVER TESTS 
515: 
Hah hkl 104414 ROMCLK «NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
3793 O0e3602 021204 021204 ‘GET F 
3794 023604 116137 oo00004 001251 MOVE 4(R1),TEMP2+1  ;PUT IN TenPS 
3795 Oesble 042737 000377 001250 BIC #377, TEMP2 ;CLE LO BYTE 
37% 053737 001250 001252 BIS TEMP? TEMP3 16 BIT BCC _NOW IN TEMP3 : 
3797 Oe3626 023737 027320 01252 CMP caLect, TEMP3 ite IT CORRECT? 
pe Bee hice an sai 
1040 HL 

3800 023640 104400 Ss: SCOPE ;SCOPE THIS TEST 
3802 
3603 ; SERRE SERDAR ODER Tee TEST SQ ReRHSERLELERLE RARE S LESSEE 
3805 IMIS, T er Li T " WITH: SYNCS.4 CHAR HESSAGE , EOM 
3806 hoe (babs ‘ur iho wi “sfean 3s CHECKED TO BE 
3807 OetaR. BC TERR AR BEC nee TEST VERIFYS THAT 
3808 ie E cHARCTERS, Lond LOADED ED UnTH Eon ie ARE LOST 
it ca aie at watt fee Bt Lis 
3B om POUR ang act cs hae CH HO og ce. 477 
3812 S SRECEIVED DATA IS VERIFIED froth “Bee aAtcn IS CHECKED 
ale eee reas rusanouneseeeerhaneKnsuauGuneeneeeeeinnsnsneneuheee 
3815 ; TEST 53 
3817 O23642 012737 000053 ocDolec6 TSTS3: MOV #53, TSTNO 
3818 023650 012737 Oeso4¥2 OOlelé MOV #TStS4, NEXT 
3819 :R1 CONTAINS BASE MCL ADDRESS 
$820 023656 104412 MSTCLR ‘MASTER CLEAR DMC11 
382 ;LOAD OUT DATA SILO 
3824 023660 012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
3825 023664 012704 030102 MOV #MESDAT, RY ‘LOAD POINTER 1 DATA 
3826 023670 005037 024004 CLR 10$ :CLEAR SOFT BCC 
3827 023674 012700 OO0004 ‘ MOV #4, RO LOAD CHARACTER COUNT _ 
3828 023700 004737 027464 JSR PC; SYNLD LOAD 2 SYNCS IN OUT SILO 

023704 004737 O26S02 JSR PC; OUTRDY ‘WAIT FOR OUTRDY 

023710 004537 Oe7b20 JSR RS; MESLD ‘LOAD SILO WITH 4 CHAR MESS 
3831 4 030102 MESDAT “ADDRESS OF MESSAGE | 
3832 023716 000004 4 : OF CHARAC 
3833 023720 004737 027574 JSR PC,EOM ‘LOAD GARBAGE CHAR ACTER, WITH Eon SET 
3834 023724 004737 027544 JSR PC’SOM LOAD GARBAGE CHAR WITH’ SOM 
3835 023730 004537 027620 JSR RS; MESLD “LOAD FOUR MORE CHARACTERS 
3836 023734 030102 MESDAT “ADDRESS OF MESSAGE 
3837 023736 OO00004 4 : NUMBE TERS 
3838 023740 004737 027574 JSR PC,EOM :SET EOM 
3839 023744 004737 026350 SR PC’ OCOR ‘WAIT FOR OCOR ® 
3840 023750 005003 CLR R :CLEAR BIT COUNTER 
3841 023752 104415 opoc22 DATACLK, 22 ;CLOCK DATA 
3842 023756 112405 12$:  MOVB  '(R4)+,RS "LOAD RS WITH CHAR 
3843 023760 O10s0e2 MOV RS,Re’ LOAD Re WITH CHAR 
3845 CHECK FIRST FOUR CHARACTER MESSAGE 


JB4E IN THE BIT WINDOW (0, 125,252,377) 


DZDME  MACY11 30( 1046) 

OZDME P11 12-MAY-77 14 
3847 
3848 Oe 012737 
3849 Ge 010537 
3850 023774 004537 
38S1 24000 000010 
38Se Gex00e 000000 
38S3 Oe4004 000000 
3854 O2e4006 013737 
38SS Ge4014 104415 
3856 de%0e0 106002 
38S? Oexdee 103005 
3888 Oe40e4 004737 
3853 024030 103406 
3860 Oe4032 104006 
3861 24034 O00404 
3862 024036 004737 
3863 Oe404e 103001 
3864 Ge4O44 104006 
3865 Oe4046 
3866 Oe4046 005203 
3867 Oe40S0 022703 
3868 de40S4 001357 
38639 Oe40S&6 005003 
3870 Oe4060 005300 
3871 Oe4062e 001335 
3872 
3873 
3874 
3875 024064 013700 
3876 Oe4070 104415 
3877 024074 
3878 Oe4076 1 
38739 Oe4100 004737 
3880 Ge4104 103406 
3881 Oe4106 104014 
3882 024110 O00404 
3883 Oe4lle 904737 
3884 024116 103001 
3885S Oe412e0 104014 
3886 Oerl2e 
3887 Oer%lee 005203 
3888 de41e4 Oe2e703 
3889 024130 001357 
3890 Oe%13e 005003 
3891 
3892 
3893 
3894 024134 005005 
3895 Oe4136 010502 
38% Oe4140 104415 
3897 O24144 106002 
3898 024146 103005 
3899 024150 004737 
2900 024154 103406 
3301 Oe41S& 104006 
3302 024160 000404 


120001 
Ce400e 


000010 


027320 
000001 
026316 


026316 


000020 


000091 


026316 


Ll-JUL-77 11:40 
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027316 


024004 


BO8 


PAGE 73 
E 


PAGE : 


; LOAD cob nan 
;LOAD SOFT CHAR FOR BCC 
CALCATE OFT BCC 


iBhaRACTER 


BCC 
{LOAD SOFT BCC FOR NEXT SHIFT 
;SHIFT DATA IN 1 BIT WINDOW 
SHIFT SOFT DATA 
:BR IF A SPACE 
AT BIT WINDOW 
F OK (MARK) 
BIT WINDOW WAS A SPACE 


Bees 
o 


gts 


Omer 
Z. 


oa 
BOS 
Pee | 
a 


8 


(SPACE ) 
IT WINDOW WAS A MARK 
COUN 


3 


I UNTER 
No 8 BITS YET 
LEAR BIT COUNTER 
‘DEC rgd COUNT 
:BR IF NOT DONE YET 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


;CHECK CHARACTER LOADED WITH SOM (000), 


SIC RECEIVER TESTS 
MOV #CRC 16, XPOLY 
MOV RS,67S 
ISR RS; SIMBCC 
67$: 0 
10$: 0 
MOV CALBCC, 10S 
64$:  DATACLK, l 
RORB 
BCC 6S$ 
JSR PC, GETSI 
BCS 66$ 
HLT 6 
BR 66S 
6S$: JSR PC, GETSI 
Bcc 66$ 
HLT 6 
66S: 
INC 3 
CMP #10,R3 
BNE 64S 
CLR R3 
DEC RO 
BNE 12% 
MOV CALBCC,RO 
68$:  DATACLK,1 
ROR 
BCC 695 
ISR PC. GETSI 
BCS 70$ 
HLT 14 
BR 70S 
69S: JSR PC GETSI 
BCC 70$ 
HLT 14 
70$: 
INC R3 
CMP 820,R3 
BNE b8$ 
CLR 
CLR 5 
MOV RS ,R2 
32$:  DATACLK, 1 
RORB  'R2 
BCC 30$ 
JSR PC GETSI 
BCS 316 
HLT 6 
BR 31$ 


;PUT 5ft IN 


sERROR, CRC WRONG (SPACE) 
sCONTI 

;LOOK_AT BIT WINDOW 

; F OK (SPACE) 

;ERROR, CRC WRONG (MARK) 


;BUMP BIT COUNTER | 
;FINISHED BCC YET? 


:BR I 
;CLEAR BIT COUNTER 
IN THE BIT WINDOW 
; CHARACTER LOADED WITH SOM 
WITH CHAR 


Re WITH 
CLOCK TRANSMITTER 
;SHIFT SOFT DATA 


:BR arate 
;LOOK 7" BI WINOON 


sBR I (MARK ) 
i ERROR BIT WINDOW WAS A SPACE 
:¢ ONTI TIAUE 


0032 


sgggaaR AA 


sana as 
WOnrOucWwrueO 


suneaiee 
= 


z 


MU icauetas Spas eearriernciss 


Be 


COS 


11-JUL- -77 11:40 PA 74 PAGE: 0092 
14:18 Baste RECEIVER TESTS 
026316 30$: JSR PC. GETSI :LOOK AT BIT WINDOW 
BCC 31$ iBR IF OK (SPACE) 
HLT 6 ERROR BIT WINDOW WAS A MARK 
31$: INC R3 :BUMP BIT COUNTE 
000010 CMP #10,R3 ; DONE CHARACTER YET? 
BNE 325 BR IF NO 
CLR R3 RESET BIT COUNTE 
MOV #4, RO ‘RESET CHARACTER 
030102 MOV #MESDAT, RY * LOAD HE SSAGE POINTER 
024246 CLR 11§ ‘CLR SOFT BCC 
13$: MOVB (R4)+,RS ‘LOAD CHAR IN RS 
MOV RS, Re ‘LOAD CHAR IN R2 
sCHECK SECOND MESSAGE IN THE BIT WINDOW (0, 125,252,377) 
120001 027316 MOV #CRC16,XPOLY | ;LOAD POLYNOMIAL 
024244 MOV RS, 76S ‘LOAD SOFT CHAR FOR BCC 
027212 JSR RS; SIMBCC ‘CALCULATE SOFT BCC 
10 ‘SHIFT COUNT 
765: O :C TE 
118: O :OLD BCC 
027320 O24246 MOV CALBCC, 11 "LOAD SOFT BCC FOR NEXT SHIFT 
000001 73$:  DATACLK, l ‘SHIFT DATA IN TO BIT WINDOW 
RORB Re ‘SHIFT SOFT DATA 
BCC 74 :BR IF A SPACE 
026316 JSR PC. GETSI ‘LOOK AT BIT WINDOW 
8 75$ :BR IF OK (MARK) ; 
HL 6 ERROR, BIT WINDOW WAS A SPACE 
BR 755 ; CONT TAME 
026316 74g: JSR PC. GETSI ‘LOOK AT BIT WINDOW 
BCC 75$ :BR IF OK (SPACE) 
vite HLT b ERROR, BIT WINDOW WAS A MARK 
INC R3 ;BUMP BIT COUNTER 
000019 CMP #10,R3 ‘DONE FULL 8 UBITS YET 
BNE 735 :BR 
CLR R3 :CLEAR BIT COUNTER 
DEC RO :DEC CHARACTER COUNT 
BNE 13$ ‘BR IF NOT DONE YET 
CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
027320 MOV CALBCC RO :PUT BCC _IN RO 
000091 77$:  DATACLK,1 ‘SHIFT HARDWARE BCC 
ROR RO :SHIFT SOFT BCC 
BC 78S BR IF CARRY CLEAR 
026316 ISR PC. GETSI *L30K AT BIT WINDOW 
BCS 79¢ ;B8 IF OK (MARK) 
HLT 14. sna CRC WRONG (SPACE) 
026216 788: JSR PC, GETSI ‘LOOK AT BIT WINDOW 
BCC 79$ ‘BR IF OK (SPACE) 
oan HLT 14 ‘ERROR, CRC WRONG (MARK) 
INC R3 :BUMP BIT COUNTER 


ococed CMP #20,R3 ;FINISHED BCC YET? 


a ee eee meee wee tee ee -_- -- <_<» 


DO8 


OZDME  -MACY1I 301046) 1 ite ju -77? 11:40 PAGE 75 PAGE: 0094 
DZDME.P11 l2-MAY- BASIC RECEIVER TESTS 

3959 024372 001357 BNE 77$ :BR IF NO 

$360 024374 9005003 CLR R3 :CLEAR BIT COUNTER 

336 sCHECK TO SEE IF TRANSMITTER IS MARKING 

3964 024376 104415 000001 2s: DATACLK, l ;CLOCK TRANSMITTER 

3365 004737 026316 JSR PC,GETSI ;LOOK AT WINDOW 

fe en leo es gt ee 

3968 ae 005203 3S: INC R3 ‘BUMP BIT COUNTER 

3969 024414 622703 000007 CMP #7,R3 ‘DONE YET 

3970 20 001366 BNE $ :BR IF NO 

3971 Oe4422 104415 O00010 DATACLK, 10 GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 

3972 Oe4ve6 005003 SL :CLEAR BIT COUNTER 

3973 024430 104415 o00001 4g: DATACLK, l ‘SHIFT OUT NEXT BIT 

3974 024434 004737 026316 JSR PC, GETSI ‘LOOK AT BIT WINDOW 

3975 103401 BC +4 iBR IF IT ISA 

3976 Ooww4e 104024 HL 24 RROR TRARSALITTER IS NOT MARKING 

3977 005203 INC R3 SINC _B tt 

3978 022703 oo0020 CMP #20,R3 vers 

3979 Oe44Se 001366 BNE 4§ ‘BR IF NO 

3981 ;CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 

3982 ‘WAS RECEIVED CORRECTLY (0, 125,252,377 

oe 024454 104415 000001 DATACLK, l iE LAST BIT IN RECEIVER 

398S 24460 012703 o00004 MOV #4 =CHARAC 

3986 Oc4464 Ole702 030102 MOV #MESDAT, Re "LOAD MESSAGE COUNTER IN R2 

3987 Oe4470 004737 027155 40$: JSR PC, INRDY hart FOR INRDY 

3988 024474 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3989 024476 021204 021204 

3990 Oe4S00 016104 oo0004 MOV 4(R1),R4 ;PUT “FOUND” IN RY 

3991 24504 112205 MOVB = (R2) + RS ‘PUT “EXPECTED IN 

3992 Oe4506 120504 CMPB sR. R4 IS RECEIVED DATA CORRECT? 

3993 Oe4S10 O014L1 BEG 41g ‘BR IF YES 

3994 Oe4512 104010 HLT 10 ‘RECEIVE DATA 

399S 024514 905303 41$: DEC R3 :DEC CHARACTER COUNT 

33% 024516 001364 BNE 40S :BR IF NOT DONE YET 

3998 sCHECK TO SEE THAT IN BCC MATCH IS SET 

3333 AND THAT THE BCC WAS RECEIVED CORRECTLY 

4001 024520 004737 027156 JSR PC, INRDY ;WAIT FOR INRDY 

4002 O245e4 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4003 Oe4526 021204 021204 GET FIRST HALF OF CRC 

4004 024530 116137 000004 0012Se MOVE 4(R1), TEMP PUT IN TEMP3 

4005 024536 042737 177400 O0lese2 BIC #177400, TEMP3 CLEAR HI BYTE 

4006 Oe4544 004737 027156 JSR PC, INRDY !WAIT FOR INRDY 

4007 Oe4sSO 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4098 52 021244 021244 

4009 024554 016104 00004 MOV 4(RL) RY :PUT “FOUND” IN 

4010 O2e4S60 042704 000376 BIC 376 Ry :CLEAR UNWANTED BITS 

4011 Oe4564 012705 000001 MOV 1,R5 :PUT “EXPECTED” IN RS 

4012 024570 120504 CMPB He RY -IS IN BCC MATCH SET? 

4013 024572 401401 BEQ so$ 

4014 Ge4E74 o4OIs HLT 15 :IN BCC MATCH ERROR 


E08 


DZDME MACYI1 30(104%6) il-JUL-77 11:40 PAGE 76 PAGE: 0095 
DZDME.P11  12-MAY-77 14:18 BASIC RECEIVER TESTS 
4015 024576 SOs: 
4016 024576 oust RONCLK : NEXT WORD 1S_ INSTRUCTION, ROMCLK PC=S304 
4018 SSupoe nse oo00004 001251 gels 4(R1),TEMP2+1  ;PUT ‘RST TEMP 
Woes GeseLe pea7ae pores0 DOlsee jE As OO ey NOW IN TENPS 
4921 ratte O33737 027320 O01e52 CMP cCALBCt,TEMP3 ;1S IT CORRECT? 
4022 024632 001401 BE 4S§ ‘BR IF OK 
4923 104027 HLT 27 
498 ;CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000) 
4027 024636 004737 027156 45$: JSR PC, INRDY WAIT FOR INRDY 
4028 Oe4642 104414 ROMCLK NEXT LORD IS INSTRUCTION, ROMCLK PC=S304 
4029 024644 021204 021204 GET RECEIVE DATA 
4030 O2%646 016104 900004 MOV 4(RL),R4 ‘PUT “F IN RY 
4031 024652 O0SO0S CLR RS ‘PUT “EXPECTED” IN RS 
4032 024654 120504 CMPB SsaR'S_ RR ‘IS RECEVIED DATA CORRECT? 
4033 004656 001401 BEQ ya$ F YES 
4038 024660 104010 HLT 10 RECEIVE DATA ERROR 
4036 sCHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
4037 :WAS RECEIVED CORRECTLY (0, 125,252,377 
4039 024662 012703 oO0004 425: MOV :R3=CHARACTER COUNT 
4040 Oe%666 012702 030192 MOV INeCGAT Re ‘LOAD MESSAGE POINTER IN R2 
4041 24672 004737 027156 433: JSR PC, INRDY :WAIT FOR é 
4042 024676 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
4043 024700 021204 021204 
024702 ° O16104 900004 MOV 4(RL),R4 T “FOUND” IN 
024706 112205 MOVB = (R2)+_RS ‘PUT “EXPECTED” aN RS 
4046 024710 CMPB SRY 15 RECEIVED DATA CORRECT? 
4047 O24712 001401 BEQ 4$ F YES 
4048 024714 104010 HLT 10 'RECEIVE DATA ERROR 
4049 024716 005303 44$: DEC R3 :DEC CHARACTER COUNT 
4050 024720 001364 BNE 43$ :BR IF NOT DONE YET 
4052 :CHECK TO SEE THAT IN BCC MATCH IS SET 
4053 "AND THAT THE BCC WAS RECEIVED CORRECTLY 
4055 024722 004737 027156 JSR PC, INRDY ;WAIT FOR INRDY 
056 024726 104414 ROMCLK NEXT WORD IS INSTRUCT ION, ROMCLK PC=5304 
4057 024730 021204 021204 GET FIRST HALF OF 
4058 024732 116137 000004 o0125e MOVE 4(R1), TEMP :PUT IN TE 
40539 O24 042737 177400 dOlese BIC #177400, TEMP3 :CLEAR HI BYTE 
4060 024746 004737 027156 JSR PC, INRDY ;WAIT FOR INROY 
4061 Oe47S2 1 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4062 024754 G21244 921244 
4063 024756 O16104 op0004 MOY 4(RL),R4 PUT “FOUND” IN 
4064 024762 042704 000376 BIC #376, R4 CLEAR UNWANTED tr s. 
4065 024766 012705 000001 MOV #1,R5 :PUT SEXPECTED™ IN R 
4066 024772 120504 CMPB eR’ RY :IS IN BCC MATCH eet? 
4067 024774 001401 BEQ sig 
4068 024776 104015 HLT iS :IN BCC MATCH ERROR 


4069 025000 518: 
4070 OeS000 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S3C4 


FOS 
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4071 O25002 021204 021204 ;GET LAST HALF 

1078 025004 116137 OM 901251 MOVB 4(RL), TENP2+1 sPUT ol Tere 

ae 

i853 BSepss 7 ] BR i529 Bie ilps FETE fa EIT Bcf nbs IN TEMP3 

4075 025026 023737 027320 001252 CMP caceact, TEMP3 

Wace Gee0se ToNde? -' aR TF 

1078 025040 104400 cs: SCOPE ;SCOPE THIS TEST 

4080 

4981 s RERLRRS EER RRLRLRREREREEEES TEST SY SERS eeeeeeee ERE SEES EE EEE 
4082 :#EMPTY SILO TEST 

4983 *#LOAD SILO WITH 2 SYNCS 4 CHAR MESSAGE pS INGLE CLOCK 
4084 -#UNTIL THE SILO I MPTY, LOAD 4 MORE ACTERS IN THE 
4995 -*SILO. GIVE MORE T EK RIFY T af ie FIRST 
4086 #4 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR 
aoee . s LEASES HARA SERA SAALLLASASAASAARAALAASRSRAAAALALAALAASLASALAELALES 
4 

4988 ; TEST S4 

4091 O25042 012737 oO000S4 001226 TSTS4: Mov #54, TSTNO 

025050 012737 025274 O0lel6 MOV #TSTSS NEXT 

4093 :R1 CONTAINS BASE DMC11 ADDRESS 
4094 O250S6 104412 MSTCLR :MASTER CLEAR DMC11 

4095 012711 oo4000 MOV #B1T11,(R1) :SET LINE UNIT OOP 

4096 4 012702 030102 MOV anESOAT, Re *Re POINTS TO MESSAGE 

4097 025070 012700 ooj0004 MOV RO *RO = CHAR COUNT 

4098 025074 004737 027464 JSR Pe’ SYNLD ?LOAD SILO WITH TWO SYNCS 

4099 025100 004737 026502 ISR PC’ OUTRDY :WAIT FOR OUTRDY 

4100 025104 004537 027620 JSR RS; MESLD *LOAD MESSAGE IN SILO 

4101 025110 030102 MESDAT ‘START OF MESS 

4102 025112 o00004 4 : CHARACTER COUNT 

4103 025114 004737 926350 ISR PC,OCOR ;WAIT FOR OCO 

4104 025120 104415 d00065 DATACLK, 65 ?CLOCK DATA (EMPTY SILO) 

4105 025124 537 027620 ISR RS, MESLO :PUT MORE CHARACTERS IN SILO 
4106 025130 93010¢ MESDAT 

4107 025132 9000 4 

4108 025134 004737 926350 ISR &C,OCOR 

4109 025140 104415 990005 DATACLK, = ;CLOCK UNTIL RTS IS CLEARED 
4110 025144 104414 ROMCLK iNEX XT WORD IS INSTRUCTION, ROMCLK PC=S3C4 
4111 025146 021264 021264 T RTS 

4112 025150 761 ooo040 oocoo4 BIT #BITS,4(R1) ‘Ts IT CLEAR? 

4113 025156 001401 BEQ cf :BR IF YES 

4114 025160 034 ;ERROR, R 

4115 25162 104415 000041 cs: DATACLK, 4] ‘CLOCK XMITTER SOME MORE 

4116 0216 004737 027156 18: ISR PC, INRDY 5 OK LETS ¢ CK WHAT WAS RECEIVED 
4117 0251 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4118 025174 021204 021204 :GET RECELV VE DAT 

4119 025176 016104 o00004 MOV 4(R1),R4 PUT IT IN RY 

4120 O25202 112205 MOVB (R2)+.RS RS = “EXPECTED” 

4121 O252e04 1 CMPB sR’, R4 215 bara CORRECT? 

4122 025206 001401 BEQ 2s :BR IF OK 

4123 025210 104010 HLT 10 :DATA E 

4124 925212 300 2s DEC RO EC CHAR COUN 

4125 025214 001264 BNE 1$ :BR IF NOT BONE YET 

4126 025216 004737 O2715& 3g: JSR Pé, INRDY ‘WAIT FOR INRCY 
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025222 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1204 021204 :GET BCEIVE DATA 
16104 o00004 MOV 4(R1),R4 :PUT IT IN “FOUND” 
025232 012705 000377 MOV #377,RS RS = pexEC TER" 
025236 120504 CMPB sR’, RG ; SHOULD SEE 
025240 001401 BEQ 4 OK 
OeSe4e 104010 HLT 10 ‘ERROR, TRANSMITTER DID NOT ABORT 
025244 004737 027156 4$: JSR PC, INRDY : WAIT INRDY 
025250 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S$304 
025252 021204 021204 -GET RECEIVE DATA 
025254 016104 o00004 MOV 4(R1) RY “PUT IT IN “FOUND” 
025260 012705 000377 MOV #377,RS 'RS = “EXPECTED” 
025264 120504 CMPB sR. RG ‘SHOULD SEE 377 
025266 001401 BEQ 10$ :BR IF OK 
025270 104010 ian HLT 10 ‘ERROR, TRANSMITTER DID NOT ABORT 
025272 104400 SCOPE ;SCOPE THIS TEST 
; RERLRLARERRRRLEREARARERERES TEST SS ReRSRERERERERE ERE ASA EERE SS 
; SHALF DUPLEX TEST 
?%SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A 
 ARESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR 
s EEK LASAASA LARA ALLAAH AARA LALA LAAEAARAAASAALARALALLAAAALFRALAFLE 
; TEST SS 
025274 012737 oOo00SS o0l226 TSTSS: Mov #55. TSTNO 
025302 012737 OeS412 OOielé& MOV #TStS6, NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
025310 104412 MSTCLR :MASTER CLEAR OMC1: 
025312 012702 oo0cl1e MOV #12,R2 :SAVE Re FOR TYPEOUT 
025316 012711 O04000 MOV wBITii, (RL) ;SET LINE UNIT LOOP 
OeS3e2 012761 o00020 on0004 MOV #BIT4, 4(R1) OAD PORTY 
025330 104414 ROMCLK NEXT WORD Is INSTRUCTION, ROMCLK PC=5304 
025332 122113 12211 :SET BIT 
025334 004737 027464 JSR PC, SYNLD *LOAD 2 SYNCS 
025340 004737 ODe6S02 ISR PC, OUTRDY ‘WAIT FOR OUT 
025344 004537 027620 JSR RS; MESLD ;LOAD 4 CHAR MESSAGE 
025350 030102 ESDA :ADDRESS OF MESSAGE 
04 :CHARACTER COUNT 
025354 004737 026350 JSR PC, OCOR ;WALT FOR OCOR 
025360 104415 000073 DATACLK, 73 *SEND MESSAGE 
025364 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
021244 021244 :R - 
O16104 oo0004 MOV 4(R1). RY :PUT “FOUND” IN RY 
025374 042704 000257 BIC #257, R4 : CLEAR UNANTED _ BITS 
025400 05005 CLR RS RS = TEXP T 
025402 120504 CMPB sR, R4 :IN-ACTIVE AND IN-RDY SHOULD BE CLEAR 
025404 001401 BEQ 1$ :B OK 
925406 104035 HLT 35 :ERROR BOTH ARE NOT CLEAR 
025410 104400 18: SCOPE 


RERERRRRRRRRARERRLRRHEARREE TEST SH RRRRERERRARARAAAASTRAARARES 
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Ay SYNC i wit a i aR Lg A bo Why 


ne ees Sree Ay . "he Pts fie’ INTERNAL CLOCK 


027320 
027620 
027574 
027620 


027574 
027620 


001226 
001216 


001366 


027316 


025512 


TSTS6: 


mul 
Aw 


1$: 


HOS 


PAGE: 


cs ON “10. RUN T HIS” TEST 
eee SeSARSeDESUOREOSTHOGESSSNSASSSESSGRENSSOAAOEEEAEONSOEES 


DATA TA 15 VE 
LOOPBACK 

; TEST S6 

Mov #56, TSTNO 

MOV #TStS7, NEXT 

MSTCLR 

BIT #81714, STATI 

BEQ 

MOV #BIT11, (RL) 

JSR PC, SYNL 

JSR PC’ SYNL 

MOV #CRC16, XPOLY 

CLR 6$ 

MOV #16. ,.R3 

MOV #FLTOAT, Re 

MOVB  (Re)+,5$ 

JSR RS, SIMBCC 
10 

= 

MOV CALBCC,6$ 

DEC R3 

BNE 7§ 

JSR RS, MESLD 

FLTDAT 

16. 

JSR PC,EOM 

JSR RS’ MESLD 

FLTDAT 

JSR PC,EOM 

JSR RS ,MESLD 

FLTOAT 

16. 

Ten Be SCOR 

2P8 15 

MOV #3, RO 

MOV 16. Ra 

MOV #FLTOAT Re 

JSR , INRDY 

ROMCLK 

021204 

MOV 4(R1),R4 

MOVE  (R2)+/RS 

CMPB saRSR4" 

BE 23 

HLT 25 


;R1_ CONTAINS BASE en ADDRESS 
; MASTER CLEOR 
;SKIP_TES 
BACK 
SET LINE UNIT LOOP 
:LOAD 2 SYNCS 


iL OR MORE SYNCS 
LOAD ey FOR SOFT CRC CALC 


Res POINTER 
HAR Bee SOFT BCC CALC. 


;OLD B 
; LOAD OLD _BCC 
OUNT 
‘BR IF NOT DONE YET 
;LOAD SILO 


MESSAGE ADDRESS 
Hs a COUNT 


OR 
BR ORNe UNIT LOOP 
COUNT 
R_COUNT 
POINTER IN Re 


AC 
‘PUT “EXPECTED” IN 
il RECEIVED DATA CORRECT 


:DATA ERROR 


0098 
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025640 
Boebd2 


025644 


bpepey 


120504 
001401 


012737 
012737 


109745 


004737 


11-JUL-77 


000020 


030106 


000957 
003364 
040009 


004000 
027464 


é 
001eSe 


001366 
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PAGE: 


BASIC RECEIVER TESTS 


2s: 


ess: 


4§: 


3$: 


TSTS7: 


Bee BRC LPROTDBNe THIS nessace 


MOV #16. ,R3 ;RESET CHARACTER COUNT 


;CHECK TO SEE THAT IN pce MATCH IS SET 
!AND THAT THE BCC WAS RECEIVED CORRECTLY 


RBNCLK —" NEXT FRR THR° IS 1S Instruction, ROMCLK PC=S304 


021204 GET FIRST HAL 
nove 2h TEMP3 Bat N TEMP 
BIC 40, TEMP3 :CLEAR HI BYTE 
JSR :WAIT FOR INRDY 
RON LK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
re ase A T “FOUND” IN R 
% 
MOV 37Be CLEAR UNUANTED ei7 2s 
CMPB Re’ RY 8 IN BCC MATCH SET? 
BEQ asf 
HLT “ BCC MATCH ERROR 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
Ge 1204 : AST HALF 
MOV 4(R1), TEMP2+1 PUT IN TEMP 
BIC #377, TEMP2 :CLEAR LO BYTE 
BIS TEMP? TEMPS :16 BIT BCC NOW IN TEMPS 
CMP CALBCC,TEMP3 ;IS IT CORRECT? 
BEQ 4§ :BR IF OK 
HLT 27 
MOV #FLTDAT,R2 RESET NE SSAGE POINTER 
DEC RO !DECREMENT COUNTER 
BNE 1$ :BR IF NOT DONE 
SCOPE ‘SCOPE THIS TEST 


pt bt tap tat tal ttl ltl TEST 57 SERAASRALASAAARALALAVAFTAES 
:#DDCMP CABLE DATA TEST 
; #THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 
4 SYNCS.59 DATA CHARACTERS.EOM WITH CHARACTER 

THE DATA IS TRANSMITTED OVER SHE CABLE USING THE INTERNAL CLOCK 
; HRECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 
i ¥LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 

Se een EARLESESERESESEDEGSEEESE2 0540402000422 240 EEEEREELEEEEE 


; TEST 57 
hov #57, TSTNO 
MOV 8. EOP, NEXT 

:R1 CONTAINS BASE joni ADDRESS 


MSTCLR ‘ ; MASTER R CLEAR DMC 
SIT WBIT14,STATL | ;SKIP TEST IF RO” 

BEQ 3$ : LOOPBACK CONNECTOR ON 
MOV #BIT11, (RL) ;SET LINE UNIT LCO 

ISR Pc, SYNLD :LOAD 2 SYNCS 


0095 
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4 4 
‘23 EAR ATH OBSIBY cerare 
M3. 7 eel 
sexe Geet Gle7ay OONt3 
4300 026064 Ili2e2e37 026076 
he Seen Goong 
4 
Naps Geploe 027320 026100 
see BELTS Bheaas 
pe Rests Bebe? ozvez0 
q 1 1 
TH peels pees - 
32 Gelso Bharay Dec360 
4314 026136 012700 000073 
asit a pier os oo ite 
317 Deeise IOI 
431] heats 161 oo0c004 
‘eet pep ite 112205 
tae) Geeles [eben 
4323 026170 1040eS 
4324 026172 
4325 026172 
43°26 026174 001364 
a 
4329 
4330 
4330 026176 9004737 027156 
i336 026204 tea 
4334 O26206 116137 OO00004 O0leSe 
4335 O26214 042737 177400 O0leSe 
4336 Oeb22e2e 004737 027156 

337 Oeb2ee6 104414 

338 026230 del 
wave Gece? OGIO go000s 
4341 e 012705 900001 

as 026246 aed 

apa Geese? Bhai 

mae 026254 104414 

ao 
4349 O2eb266 042737 000377 001250 
$350 026274 053737 O0leS0 O0leSe 


11:40 PA 


GE 81 
BASIC RECEIVER TESTS 


1$: 


2$: 


ess: 


DEC 
BNE 


JO8 


seaeE,RPocy 


GALBCC, 6S 
rs 
RS, MESLD 


PC,EOM 
PC’ OCOR 
(R RL) 

RO 
SRESOAT R2 
PC, INRDY 


4(R1),R4 
(R2)+,RS 
RS,RY 


RO 
1§ 


PAGE: 


ESRB Pol ont Al Por SOFT CRC CALC 


ace 


SPECS; 
_ 


; CLEAR LINE watt LOOP 
;RO= CHARACTER COUNT 
; LOAD NESSAGE POINTER IN Re 


Y 
S MN SILO ROMCLK PC=S304 


mt Te RECEIVED BATA COR CORRECT 
‘BATA ERROR 


;DECREMENT COUNTER 
:BR IF NOT DONE 


;CHECK TO SEE THAT IN BCC MATCH IS SET 
AND THAT THE BCC WAS RECEIVED CORRECTLY 


ROMCLK 


Ave 


BIC 
BIS 


PC, INRDY 


4(RL), TEMP3 
#177400, TEMP3 
PC, INRDY 


(RL) TenPe+ 
77 TEMP2 
rep. TEMP3 


el FOR INRDY 
TeIRSE IS REL OF CR ROMCLK PC=S304 


;WAIT FOR INRDY 
;NEXT ORD IS INSTRUCTION, ROMCLK PC=S304 
ELE “FOUND” IN RY 


BOY MENPECTED™ IN RS 
oS IN BCC MATCH SET” 


;IN BCC MATCH ERROR 
NEXT ad 5. INSTRUCTION, ROMCLK FC=5304 
i ita TeHPS 


SCLEAR LO BYTE 
718 BIT BCC NOW IN TEMPS 


0100 
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023737 
001401 


184860 


104414 


104414 


11-JUL-77 11:40 PAGE Se 


14:18 
027320 


000020 


001246 
000002 
026502 
000001 
000026 
001246 


026502 
000004 


001252 


026346 


153030 


BASIC RECEIVER | 


KOS 


PAGE: 


ESTS 
CMP CALBCC,TEMP3  ;IS IT CORRECT? 
BEQ 3$ -BR IF OK 
HLT 27 
3$: SCOPE ;SCOPE THIS TEST 
; SUBROUTINES 
GETSI 
; THIS SUBROUTINE READS LU_17 PUTS IT INTO NITCH. 
<NITCH IS ROTATED LEFT UNTILL ane & SI BIT IS IN CARRY 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
021364 “PORTH*LU 17 
MOV QOMPO4.NITCH STORE LU 17 
ROLB  =NITCH 
ROLB =-NITCH 
ROLB NITCH ;PUT SI IN THE CARRY BIT 
RTS PC 
NITCH: O 
OCOR: . 
; THIS SUBROUTINE SPINS ON OCOR 
ROMCLK ;NEXT WORD Is INSTRUCTION, ROMCLK PC=S304 
De} 364 : PORTY*LU 
B #5IT4,aDMPO4 —-:1S OCOR S t. 
BEQ OCOR BR IF NO 
RTS PC !0K OCOR IS SET, GO BACK 
SYNC: 
: THIS SUBROUNTINE LOADS THE SILO WITH HE NUMBER OF SYNC 
; CHARACTERS PASSED TO IT IN THE WORD AFTER THE JSR CALL 
AND A NON-SYNC CHARACTER (301) 
MOV a(SP)+ TEMP1 § ;GET COUNT 
ADD (SP) ADJUST STACK 
MOV 138, 4tRL) LOAD PORT 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122114 sLOAD SYNC REGISTER 
1S: JSR PC, OUTRDY sha FOR OUTRDY 
MOV el, *4C(RL) PORT4 
ROMCLK NEXT NORD IS INSTRUCTION, ROMCLK PC=5304 
122111 :SET SOM 
MOV #26,4(R1) :LOAD PORTY 
ROMCLK :NFXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
122110 "LOAD OUT DATA 
DEC TEMP 1 :ALL DONE? 
BNE is : BR IF NOT 
ISR C, OUTRDY *WAIT FOR OUTRDY 
CLR 4(R1) : PORT 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
12211! SET SOM 


On ee ee ee eee mee ee eee me 


0idl 
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026462 
4408 0264 
44 47 
74 


013637 
062746 
004737 
013761 
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000301 


000020 
001256 


000004 


152672 


001246 
ooo004 


000004 


oo0co4 


000004 


ossS00 


OUTRDY: 


1$: 


es: 


CHAR: 


1$: 


‘ CHARSD: 


LOS 


PAGE: 

MOV #301,4(R1) :LOAD PORT 
ROMCLK : NEXT WORD ob? INSTRUCTION, ROMCLK PC=S304 
te6110 ‘LOAD 0 A 

S PC,OCOR WAIT oR RCo 
RTS PC 

; THIS SUBROUTINE SPINS ON OUT READY 
CLR TEMPS ;CLEAR TIMER 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
pepees #81T4, JDMPO4 SPORTY r R Y SET? 
Bie Et : R Ae ves 
BNE a ‘g p Br eK! F NOT DONE 
HL 36 KeeP neck Re aby Not opt 
RTS PC 

iT S SUBROUTINE LOADS THE SILO WITH 3 SYNCS 

THE CHARACTER PASSED TO IT. 

MOV a(SP)+ TEMP2 _—; GET TER 
ADD (SP) iB Tust STACK 
MOV 5° TEMP! -SET FOR ee SYNCS 
MOV #26, 4(R1) *LOAD PORTY 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
122114 LOAD SYNC REGISTER 
ISR PC, OUTRDY :WAIT FOR QUTROY 
MOV #1°4(R1) ‘LOAD PORTY 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 -SET SOM 
MOV #26,4(R1) “LOAD PORTY 
ROMCLK *NEXT WORD 1S, INSTRUCTION, ROMCLK PC=5304 
122110 sLOAD OUT DAT 
DEC TENPL "ALL DONE? 
BNE 1 :BR IF NOT 
JSR PC, OUTRDY “WAIT FOR OUTRDY 
Nov TEMP2, 4(R1) LOAD Fo TY 
ROMCLK ?NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ; LOAD OUT DATA 
JSR PC, OCOR :WAIT FOR OCOR 


; THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 
MOV a(SP)+, TEMP2 ;GET C nn bs 


ADD #2,-(SP) !ADJUST STA 
JSR Pc’ OUTRDY sMAlT FOR BU TROY 
MOV TEMP2, 4(R1) OAD PORT 


C102 


MOS 
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4463 026670 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
uues Soeeea Apazay o2eso2 {1500 pepe ac ouTROY iat oon OUTROY 
4456 Bee saa at BRCLK : ‘NEXT RY RONSTRUCTION, ROMCLK PC=S304 
4467 026702 122110 11500 122110 MEAD GARD CHAR 
026704 004737 026350 11600 JSR PC,OCOR ‘WAIT FOR OCOR 
4469 026710 000207 11700 RTS PC 
11800 
4471 11900 
4472 026712 12000  SILOLD: 
4473 12100 ;THIS SUBROUTINE FILLS THE QUT SILO 
pale 12200 : WITH A BINARY COUNT PATTERN 
4476 026712 012737 000073 001250 12400 “ae 873, TEMP2 sLOAD C 
4477 026720 005737 027152 12500 TST SCHAR :FIRST oUNe HERE? 
4478 026724 100470 12600 BMI 4§ ‘BR IF BITSTUFF 
026726 001032 12700 BNE 2$ ‘BR IF NO 
4480 026730 062737 000002 001250 128 Q #2, TEMP2 :ADD 2 TO CHARACTER COUNT 
4481 026736 012737 OO0003 O01°e%6 12900 MOV #3) TEMP ?SET FOR 3 SYNCS 
4482 026744 012761 000026 000004 13000 MOV #26, 4(R1) ‘LOAD PORTY 
4483 026752 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4484 026754 122114 13200 122114 ‘LOAD SYNC REGISTER 
4485 026756 004737 O26S02 13300 1S: JSR PC, OUTRDY : WAIT FOR QUTROY 
4486 O26762 012761 O00001 o00004 13400 MOV #1;4(R1) iL one 00 
4487 026770 104414 ROMCLK XT CORD” IS INSTRUCTION, ROMCLK PC=5304 
4488 026772 122111 13600 1e2iT1 T SOM 
4489 026774 012761 000026 O00004 13700 MOV #26,4(R1) ‘TOAD PORT 
027002 104414 ROMCLK *NEXT WORD” IS INSTRUCTION, ROMCLK PC=5304 
4491 027004 122110 13900 122110 ‘LOAD OUT DATA 
337 001246 14000 DEC TEMP ‘ALL DONE? 
4493 027012 001361 14100 BNE 1$ :BR IF NOT 
4494 027014 004737 Oe6So2 14200 «2S: JSR PC, OUTRDY {WAIT FOR OUTRDY 
4495 027020 013761 027152 o00004 14300 MOV SCHAR, 4(R1) ‘LOAD PORTY 
4496 027026 104414 OM ?NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
4497 027030 122110 14500 122110 “LOAD OUT DATA 
4498 027032 005737 027154 14600 TST STUFLG :BITSTUFF??? 
4499 027036 001407 14700 BEQ BR IF NO 
4500 027040 013737 027152 Oe70S2 14800 MOV SCHAI IT IS SOLD SO CHECK BITSTUFFING 
4501 027046 004537 027702 14900 JSR RS, OTePeL ‘ADD ANY BIT STUFF CLOCK TICKS 
4502 O270S2 O00000 15000 5S: 0 : TER 
4503 027054 000010 15100 10 :CHIFT COUNT 
4504 027056 005237 027152 15200 6$ INC SCHAR !NEXT CHARACTER 
4505 027062 022737 OOO400 o271S2 15300 CMP #400, SCHAR ;ALL DONE? 
1308 001 15400 BEG 3$ 
0270 poeags 001250 15500 DEC TEMP2 ;DECREMENT COUNT 
4508 027076 001346 15600 BNE 23 IF NOT DONE 
4509 027100 004737 026350 15700 38: JSR PC, OCOR WAIT FOR OCOR 
4510 027104 000207 15800 RTS PC 
4511 027106 005037 027152 15900 4S: CLR SCHAR ;START PATTERN AT ZERO 
Hele e716 012737 177777 027154 16000 MOV 8-1, STUFLG ‘SET BITSTUFF FL 
4513 027120 005037 030100 16100 CLR BITCON ;CLEAR STUF COUN 
4514 027124 062737 O00002 001250 16200 ADD #2, TEMP2 g TO CHAR ACTER COUNT 
4515 027132 012761 000001 000004 16300 MOV #1‘ 4(R1) :SET BITO IN PORTY 
4516 027140 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4517 Oe714e 122111 16500 122111 :SET SOM! 
4518 O2e7144 1949414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 


NOS 
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4513 0271 419 16700 422110 ;LOAD GARBAGE C 
71 1 16800 2$ :G0 LOAD SILO 
4521 027152 16 SCHAR: 0 
4522 027154 000000 17000  STUFLG: O 
4523 17100 
4524 17200 
4525 027156 17300  INRDY: 
a re? Y othe rt ey T AY TIMES 
8 
38 eau ‘Beaan' 5 REPORTED. FOR Ep ay cope eogPS fH ris 
4530 1 ebb ri 0 oO T TENPL THE aL TERING ie TP TUBER 
4331 17900 #0 1akLy ch THE DELAY. F er THE HE SreLLER Trey 
2s eats 012737 000000 001246 18106 - MOV #0, TEMP! ;SET UP DELAY COUNTER 
164 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
4536 027166 021244 18400 021244 sPORTHeL 
4537 027170 O32¢777 O000020 152214 18500 BIT #B1T4,a0MPO4 =; IS I 1? 
4538 027176 001004 18600 BNE 2$ ‘BR IF YES 
4539 027200 005237 001246 18700 INC TEMP 1 INC DELAY 
4540 027204 001367 18800 BNE 1$ : TRY AGAIN 
4541 Oe 104037 18900 HLT 37 ‘ERROR,NO INRDY 
4542 027210 207 19000 2S: RTS PC : RETURN 
4543 19100 
444 19200 
027212 SIMBCC: 
sTHIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
4547 IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE 
Hog 'STATE OF THE LSB OF THE BCC IS RETURNED IN THE C BIT. 
4550 027212 010046 MOV ;SAVE RO ON STACK 
4551 027214 012537 001246 MOV URS) +1 TeNPL :TEMP1 = SHIFT COUNT 
4SS2 O27ce0 012537 001250 MOV (RS)+, TEMPe :TEMPe = _CHARACTER 
4553 012537 027320 MOV (Re}s" CALBCC  :CALBCC = OLD BCC 
45S4 230 013700 027320 1S: MOV caLect, RO ‘PUT OLD BCC IN RO 
4555S 027234 000241 CLC 
4556 027236 006037 027320 ROR CALBCC ;SHIFT OLD BCC 
4557 027242 006037 001250 ROR TEMP2 ‘SHIFT CHARACTER 
4558 027246 005500 apc RO "ADD CHAR CARRY TO oo Bcc 
4559 027250 006000 ROR RO :PUT BITO TO CARRY BIT 
4560 027252 103011 BCC 2s ; CARRY 1S FEEDBACK BIT 
4561 027254 013700 027316 MOV XPOLY, RO FEEDBACK 
027260 043700 027320 BIC caLact RO  EXCLUSIVLY OR XPOLY TO CALBCC 
027264 043737 027316 027320 BIC XPOLY, CALBCC 
4564 027272 050037 027320 BIS RO, CALBCC 
4565 027276 005337 O01246 2s: DEC TEMP ;DEC SHIFT COUNT 
4566 027302 001352 BNE 1$ :BR IF NOT DONE 
4567 027304 013700 027320 MOV CALBCC,RO :PUT RESULT IN RO 
4568 027310 006000 ROR RO i SHIFT BITO TO CARRY 
4569 027312 012600 MOV (SP)+,RO ‘RESTORE RO 
4570 027314 000205 RTS RS : RETURN 
4571 027316 000000 XPOLY: 0 
4572 027320 000000 CALBcC: O 
4573 000200 


LRC8=200 
4574 120001 CRC16=120001 


BO9 
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4575 102010 CRC. CCITT=102010 

4576 

4577 

4578 027322 19800  CCLO: 

4579 19900 ;THIS SUBROUTINE LOADS THE OUT SILO WITH 3 SYNCS 

4580 20000 WITH SOM SET, AND ONE CHARACTER PASSED 0 IT 

1581 20100 WITH THE SOM’BIT CLEAR (ENABLE CRC) 

4583 027322 013637 001250 20300 MOV a(SP)+,TEMP2 § ;GET CHARACTER 

4584 027326 O6274% 000002 20400 ADD #2,-(SP) :ADJUST STACK 

4585 Oe7332 012737 000002 o01e%% 20500 MOV 2. TERPL ‘SET FOR 2 SYNCS 

4586 027340 Ole761 000026 000004 20600 MOV $26, 4(R1) +L port 

4567 027346 104414 OMCL !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

4538 027350 122114 20800 122114 ?LOAD SYNC REGISTER 

4589 027352 004737 O26502 20900 «1S: JSR PC, OUTRDY :WAIT FOR OUTRDY 

42390 027356 012761 000001 000004 21000 MOV #1/4(R1) *LOAD PORTY 

4531 027364 104414 OMCL ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 

027366 122111 21200 le21i1 :SET SOM 

4593 627370 Ole761 000026 000004 21300 V #26, 4(R1) “LOAD PORTY 

4594 027376 104414 OMCL !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4595 027400 122110 21500 122110 ' :LOAD OUT DATA 

4596 027402 005337 o00124%6 21600 ¢ TEMP “ALL DONE? 

4597 027406 001361 21700 1$ ‘BR IF NOT 

4598 027410 004737 O26502 21800 JSR PC OUTRDY :WAIT FOR OUTRDY 

4599 027414 013761 001250 o00004 21900 MOV TEMP2, 4(R1) :LOAD PORTY 

4600 Oe7422 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

4601 Oe7424 122110 22 122110 *LOAD OUT DATA 

4602 O27426 004737 026350 22200 JSR PC,OCOR WAIT FOR OCOR 

4603 Oe7432 000207 22300 RTS PC 

4604 22400 

4605 22500 

4606 027434 GETQO: 

4607 THIS SUBROUTINE READS THE STATE OF THE TRANSMIT 

4608 ‘BCC LSB AND PUTS IT IN THE CARRY BIT 

We fs 027434 104414 ROMCLK sNEXT. WORD IS INSTRUCTION, ROMCLK PC=5304 

4611 027436 921364 021364 : PORTH*LU-17 

4612 027440 106177 151746 ROLE § aDMPO4 :PUT QO IN CARRY 

413 027444 000207 RTS PC : RETURN 

4615 

4616 027446 GETQI: 

4617 THIS SUBROUTINE READS THE STATE OF THE RECEIVE 

4618 "BCC LSB AND PUTS IT IN THE CARRY BIT 

4620 O27446 104414 ROMCLK sNEXT WORD Is INSTRUCTION, ROMCLK PC=S304 

4621 021364 : PORTH*LU-17 

Wee O2e74Se 106177 151734 ROLB § aDMPO4 ‘PUT QO IN CARRY 

4623 106177 151730 ROLB  a3DMPO4 ;PUT gt IN CARRY 

4624 027462 000207 RTS PC *RETUR 

4625 

4626 

4627 C27464 22800  SYNLD: 

4628 22900 ;THIS SUBROUTINE LOADS OUT SILO WITH 

4629 23000 :2 SYNC CHARACTERS WITH SOM SET 
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4631 


12e-MA 


122110 
005337 
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001246 


026502 
009001 


oooc04 


026502 
oo0cte 


001246 
026502 
000004 


001246 


001246 
000004 


oo0004 


000004 


ocooo4 
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SUBROUTINES 


23200 
23300 


fs 


1$: 


SOM: 


EOM: 


MESLD: 


1$: 


PAGE : 


MOV #2, TEMPL sLOAD COUNTER FOR 2 SYNCS 
MOV #26,4(R1) ;PORT4+26 
ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122114 itor G 
JSR PC, OUTRDY AIT FOR u RDY 
MOV #1/4(R1) ‘LOAD PORTY 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
le2i11 SET SOM 
MOV #26, 4(R1) :PORT+26 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
122110 LOAD OUT DATA WITH SYNC 
DEC TEMP ;DECREMENT COUNTER 
BNE 1$ :BR IF NOT DONE 
RTS PC :RET 
THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A 
GARBAGE CHARACTER (0) 
JSR PC, OUTRDY WAIT FOR OUTRDY 
MOV #124(R1) : PORTY+ 1 
RONCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
CLR 4(RL) CLEAR DATA CHAR 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
122110 LOAD GARBAGE CHARACTER 
RTS PC RETURN 
THIS SUBROUTINE LOADS EOM AND OUT DATA WITH A 
‘GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC 
JSR PC, QUTROY ;WAIT FOR OUTRDY 
MOV #2/4(R1) :PORTH+2 
RONCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 LOAD GARBAGE CHARACTER 
RTS PC RETURN 


s THIS SUBROUTINE LOADS SILO WITH MESSAGE 
: THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE 
THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 


MOV RO, -(SP) ;SAVE_RO 

MOV (RS)+,RO *RO=MESSAGE POINTER 

MOV (R5)+, TEMP 1 t TEMPL=CHARACTER COUNT 

JSR ouTRDY ‘WAIT FOR OUT RDY 

MOVB ROSS RL) i LOAD PORTY WITH CHARACTER 

ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
122110 :LOAD OUT DATA SILO 

DEC TEMP | ‘DEC CHAR COUNT 


0106 
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eee Gerese Q04737 
4689 027656 012600 
027660 900205 
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027662 


030020 
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026350 


000200 


001252 


030100 


030100 
000005 


030100 


000004 


030100 


030100 


CLRIO: 


STFFCL: 


1$: 


es: 


3$: 


STFFCK: 


1$: 


23: 


DO9 


PAGE: 
BNE 1$ :BR IF NOT DONE 
ISR PC, OCOR ‘WAIT FOR OCOR 
MOV (SP)+,RO ‘RESTORE RO 
RTS RS ‘RET 


; THIS SUBROUTINE SETS IN CLR AND OUT CLR TO 
;CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 


MOV #BIT7,4(R1) ;LOAD PORT4 
ROMCLK NEXT we iS INSTRUCTION, ROMCLK PC=S304 


le2lle :SET_IN 

ROMCLK :NEXT NORD. is INSTRUCTION, ROMCLK PC=S304 
122111 $31 OUT CLR 

RTS PC ETURN 


5 TTS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
;FIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT. 


MOV RO, -(SP) ;SAVE RO 
MOV (R5)+,RO UT CHAR IN RO 

MOV (RS)+; TEMPS : PUT SHIFT COUNT IN TEMP 

RORB RO :LOOK AT NEX xT 8 

BCS :BR IF A 

CLR BITCON ‘IT WAS A SPACE, CLEAR 1°S COUNTER 
BR 3$ : CONT INUE 

INC BITCON ;INC CONSECUTIVE 1°S COUNTER 

CMP #5,BITCON :IS IT S YET? 

BNE ‘BR IF NO 

CLR BITCON ‘YES! SO START AGAIN 

DATACLK, :GIVE EXTRA TICK TO STUFF ZERO 

DEC TEMP3 :DEC SHIFT COU 

BNE 1$ :BR IF NOT Sone 

MOV (SP)+,RO REST 

RTS RS :RET 


; THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 
:1S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT 
:15 THE CHARACTER, SECOND ARGUMENT IS SHIFT COUNT. 


MOV RO, -(SP) ;SAVE RO 

MOV (RS)+,RO ‘PUT CHAR IN RO 

MOV (RS)+; TEMPS :PUT SHIFT COUNT IN TEMPS 
RORB RO : SHIFT OUT NEXT BIT 

BCs 25 :BR IF IT IS A MARK 

CLR BITCON !IT WAS A SPACE, CLEAR 1°S COUNTER 
BR 3$ : CONTINUE 5 

INC BITCON :INC CONSECUTIVE I°S COUNTER 
CMP #5, BITCON :S IN A ROW YET? 

BNE . :BR IF NO 

CLR BITCON :YES, SO START OVER 


~ Or ee ee emer ee § _ 


0107 
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DZOME.P11 


4743 


MACY11 ee 1 


le-MA 


Se 


Be 


_ Ob bb bb bb = be bs pe be be pe 


8 BRSRSERSRSSRSRE 


& 
fo 
NOS “FSSVERRRVIECRRAS 


& 
fv 


104415 
004737 


E09 


PAGE: 
DATACLK, l sEXTRA TICK TO STUFF ZERC 
JSR PC,GETSI i190 
BCC 3$ S IT HERO BR IF YES 
HLT 30 NO OR ZERO. waS NOT STUFFED 
DEC TEMP3 DEC SHIFT 
BNE 1$ :BR IF NOT Sone 
MOV (SP)+,RO ; RESTORE RO 
RTS RS : RETURN 


: THIS SUBROUTINE WASTES TIME UNTIL CTS SET 
:BUT HOPEFULLY NOT SO LONG THAT THE SILO ROAS OUT 


MOV RO, -(SP) ;SAVE RO 

MOV #32, RO ;LOAD RO WITH COUNT 

CMP JTKESR,JTKCSR =: WAS 

DEC RO SOP CRENERT COUNTER 

BNE 1$ -DO IT AGAIN IF NOT = 0 
MOV (SP)+,RO !RESTORE RO 

RTS pc RETURN 


#8«01111110> ;FLAG CHARACTER 
-BYTE 0, 125, 252,377 
-BYTE = 12,4, 10,20, 40, 100, 200, 376,375, 373, 367,357, 337,277,177 


-BYTE 100,140,160,170,3,300,174,176,177,1 


-BYTE  363,347,317,200,0,377,377,377,200,37 


ll-JUL-77 11:40 PAGE 89 
4:18 SUBROUTINES 
000001 400 
026316 450 
460 
34700 
001252 34800 35: 
34900 
100 
35200 
35300 
35400 CTSDLY: 
35500 
35600 
35700 
35800 
000032 35900 
1$11leG 181116 3 1$: 
36100 
36200 
36300 
36400 
500 
36600 
36700 FLAG: 
36800 BITCON: © 
125 2eSe 36900 MESDAT: 
002 004 37000 +#£=FLTDAT: 
020 040 
200 376 
37 367 
337 277 
140 160 37100 STUFOT: 
003 300 
176 177 
347 317 37200 
000 377 
377 200 
37300 .EVEN 
047111 020105 OO0300 EMI: 
047111 Oe2010S QOO4O00 ENe: 
O44S514 042516 OOSOO EM3: 
O44514 O42516 00600 EM: 
051124 047101 00700 #£€EMS: 
O4¥eSee 042503 O0800 EME: 
041505 O44S50S 00900 €EN7: 
047515 2 01000 €EM10 
051124 7101 QO1100 €EM11 
041505 01200 EMie 
teat 041502 01300 EM13 
O40Se2 OS1S16 O1400 EMILY 
041101 O42514 O1S00 EMIS 
O46i106 O43501 O1600 EME 


-ASCIZ <377>/LINE UNIT INITALIZATION TEST/ 

-ASCIZ <377>tLINE UNIT REGISTER ori ONLY TEST? 
-ASCIZ (377>tLINE UNIT REGISTER WRITE/READ TEST? 
-ASCIZ (377>/LINE UNIT INTERNAL oc FAILURE / 
-ASCIZ (320) / rene tT R DATA E 

-ASCIZ (377>/RECEIVER TEST/ 

-ASCIZ ‘377>/RECEIVER DATA ERROR/ 

-ASCIZ <377>/MODEM SIGNAL ERROR/ 

-ASCIZ (377>/TRANSMITTER CRC ERROR’ 

-ASCIZ yf a Ne ‘ C ERROR’ 

BaetS (377>7IN BCC MATCH ERROR (LU REG 12). - 
-ASCIZ <377>/TRANSMITTER PaILeD TQ GO TO MARK STATE. 
-ASCIZ <377>/CABLE DATA TEST’ 

sASCIZ = ‘377>/FLAG ERROR’ 
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030721 
030765 


eRe 


DOWOWWE Bion 


031435 


Be cho eR Bay 


at) 
rw 


sseapvedvar barververarnebeartertartometaerues _ 
w 


Seek 


031542 


BHOQBODODO DUBBO WORDED 


70 
03157e 
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4:18 SUBROUTINES 
051124 047101 01700 EM1?7: 
ps Geist am Fel 
bef} 101 O20 2: 
046101 020106 02100 N23: 
052125 051040 02200 ENeY: 
O47111 051040 92300  ENeS: 
054105 o4e520 DHI: 
050130 041505 02600 He: 
040510 040522 02700 DH3: 
051117 O4eSe2 C2800 HY: 
050130 O4150S 02900 DHS: 
050130 041505 03000 DHé: 
047514 045503 03100 DH7: 
OS2122 20123 03200 OHIO: 

03300  .EVEN 

03400 

03500 O71: 
007 03600 

03700 
p02 03800 

03900 

04000 OTe: 
007 04100 

04200 
010 04300 

04400 
o02 04500 

04600 

04700 0T3: 
017 04800 

04900 
noe 05000 

05100 

05200 0T4: 
021 05300 

05400 
oo2 05500 

5600 

05700 OTS: 
O11 05800 

05900 
O11 06000 

06100 
og2 6200 

06300 

O6400 OTE: 
O11 06500 

06600 
O11 06700 

06800 
oo2 06900 

07000 

07100 017: 
O11 7200 


-lenlenlanienlanlenlenttelele lee To) 
NNNNNNNGN NNN 


FOS 


(377)>/TRANSMITTER FAILED TO STUFF A ZERO/ 
rag TCH P VEST / 

(377) /TRANSM TTER ERROR/ 

(377>/IN READY NOT SET/ 


(377>/EXPECTED FOUND/ 
(377) “EXPECTED en a EM 


3 FT/ 

(377>/EXPECTED FOUND CHARACTER SHIFT/ 
ND NOT SET/ 

(377>/RTS DID NOT CLEAR/ 


3,7 
3,2 
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SoRoR 
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o 


03 
031746 
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O11 
007 
001 


O11 
O11 
007 
001 


007 
002 


oo4 
002 


9 
12000 


~ > &— bb pb pb pp 
Tw o— &— b— bb bb 


OT10: 


OT11: 


OTle: 


-ERRTAB: 


ZERO 

-BYTE 1,1 
ONE 

-BYTE 3,7 
SAVRS 

-BYTE 2,1 
SAVR3 

pyre S88 
ONE 

-BYTE 1,11 
ZERO 

wig fd 
SAVRS 

1s on 
~~ 

YTS . det 
FLAG 

-BYTE 2,2 
ime 

.BYT 4 
CALBCC 
-BYTE 6,2 
TEMP3 
0 
0 
0 

;HLT 1 
HLT 2 
;HLT 3 
;HLT s 
sHLT 5 
;HLT 6 
;HLT 7 
;HLT 10 


ee eee 


PAGE: 


01 


? 
s 


ss) 


HOS 
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DZOME.PLL l2-MAY-77 14:18 SUBROUTINES 
031750 031135 12900 OHI ;HLT 11 
1 1 ;HLT le 
1 1 x 13 TS 
031762 030530 13400 =EMIe 
aie pai3ie 13 : ;HLT 13 
“4 
O317%8 030801 3700 Eni 
031772 O3leSe 13800 ;HLT 14 
Osi77e Oauss4 {4000 Eni 
B32008 14100 Q ;HLT 1S 
03e00e 900000 14200 OQ 
032004 1 14300 = EM11 
032006 031312 14400 DHS ;HLT 16 
032010 031552 14500 OT6 
032012 030530 14600 EMle 
032014 O313le 14700 OHS ;HLT 17 
032016 03155e 14800 ODT6 
032020 030501 14900 —=s E11 
O320e2 031344 15000 ;HLT 20 
O0320e4 031570 15100 OT? 
032026 0 15200 =«EM11 
032030 031344 15300 ;HLT el 
032032 O3l6le 15400 O7T10 
032034 30 15500 EMle 
032036 344 15600 ;HLT 22 
032040 031570 15700 OT7 
032042 30 15800 =EMle 
032044 344 15900 OH6 ;HLT 23 
03204 O316le 16000 O7T10 
032050 030614 16100 EM14 
032052 (00 16200 0 HLT e4 
032054 16300 QO 
032056 4 16400 EMIS 
032060 135 16500 ODH1 ;HLT es 
03206e 031460 16600 OT} 
032064 030705 16700 EMI6 
032066 031214 168 DH3 ;HLT 26 
032070 031634 16900 O7T11 
032072 17000 = EMle 
032074 031135 17100 OHI ;HLT 27 
032 031646 17200 Tle 
032100 030721 17300 =EM17 
032102 17400 ;HLT 30 
032104 175 
36108 7 176 MeO 
sell 17706 ;HLT 31 
O3elle 031460 17800 071 
032114 031 17900 = EMe! 
032116 O314le 18009 OH7 ;HLT 22 
Q321e0 00 18100 
O3elee 031006 1820 EM21 
O3ele4 O31214 1820 DH3 ;HLT 33 
O32le6 031510 18400 O73 
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a 


032140 

032142 gale 

032144 

O35 
032152 oan 

O3e1se 09000 
Q3e1 BSMT I 
O3elbe 031156 
032164 031472 
032166 030361 
32170 

032172 031534 
032174 030554 


032176 031135 
032200 031469 


032202 
00000: 


11° -JUL-77 
218 


11:40 PAGE 93 
SUBROUTINES 
a 
19000 aE 
13108 EMe4 
13800 
19400 EMeS 
ea 0 
13700 Eng 
19800 OHe 
19900 DTe2 
OOO 8=EMS 
20100 DHS 
20e00 OTS 
20300 EM13 
20400 OHI 
20500 Tl 
20600 
20700 


20800 CORMAX: 
END 


21300 


109 


34 
38 
3€ 
37 
40 
41 


42 
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DZOME.P11 l2-MAY-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 
ADRCNT= 004373 879 915% J9e4e 
3024 $69 608 613 6598 
AUSTRT 4 88 
AUTO.S 010Sle Sch Ss«13688 
BCCLD 027322 2987, 3016 «= 30622 309] 3137, 3166S 3212S 3241 45788 
BINWRD 004714 965* 968% %69 10068 
BITCON 030100 4513% 4714" 4716% 4717 4719% 4737% 4739% 4740 4742% 47678 
BITO = O00001 958 §=1155 1156 
BIT! = Q0000e 948 = $31 1149 1155 1156 1449 1532 1S45 
BIT1i0 = 002000 8S8 1513 1524 
8IT11 = 004000 848 2053 208 2130 2188 2239 2290 2341 e393 2451 e479 eS07 ss 2838 
e565 = 2613 e650 = ekbB7 2724 e764 2845 es40 = 2981 3056 3131 3208 3279 
Tl 3345 Tae 143 3577 3824 4095 4159 4199-4293 
= JUUU 
BtT5 = elute Be 1467 151 1S47 1756 «6 2889s 21S) 2936 
BIT14 = 040000 818 781 1478 1480 1S47 1S58 1758 = 2891 2938 4197-4291 
BITiS = 000 e 48S 72 575 596 $99 1451 1519 
BITe = 000004 938 = S31 le 1156 
BIT3 = 0 Ses 1549 1856 = (2.917 
BIT4 = usa # 1139 1162 1164 2166 e574 2622 e659 2B 96 2733 4160 4379 4421 
BITS = OO0040 908 1661 1761 e109 = 2219 e270 2321 2372 2806 41le 
BIT& = 000190 898 = =1144 1145 1551 2488 eS44 
BIT? = 888 1145 1265 1661 2138 e739: 46.97 
BITs = 00400 878 1523 5 1540 1553 1555 1561 1564 1622 
BIT9 = 001000 88 152 1523 1535 1561 S64 1620 1622 
| 8M 007054 11878 1492 
: BRLYL OléeSe 1617 1627 1635 16478 
| BRI 003730 718 804s 
BRX 00373¢ 719 8058 
. CALBCC Oe7320 3006 3035 3081 3110 3156 3185 3231 3260 3316 3382 S441 3462 3€06 
3627 3657 3678 754 3797 3854 3875 924 394 4021 4075 4211 4267 
4305 4351 4553% 4554 4SS6# 4562 4563% 4YS64# 456 4S7ee 4785 
CHAR 026534 2S66 2614 2651 e688 = 2725 2846 44298 
CHARSD Oeb646 44568 
cg ne, i ee 
CKSWR1 907666 leeSs = §=1237 
K 007700 le2egs 
CKSWR3 007704 12308 
CKSWRY 007710 12318 1239 1246 
CKSWRS 010014 le13 1220 12558 
| CLKX poles 1718 
, CLRIO Qe? _ e298e 3011 3057 3086 3132 3161 3207 3236 46938 
CNERR 007277 626 11878 
CNT.MA 001702 196 3648 484 486 488 1293 
CNVRT = 104411 e338 8§=._ 3 738 740 74e 744 1060 1062 lee lee? 
CONERR 007223 621 11878 
007114 11878 469 
TAB 002776 630 6438 
CONVRT= 104410 esis S43 629 1076 1391 
¢ Q3220e 47858 
RAM  O06606 11878 = §=©1430 
crC.CC= 102010 45758 
CRC1E = 120001 2984 «= «-3013,-'s«30S9Ss«s308B )=Sss319H Ss 363)=0s 3209) 3238S 2880 HS 800) 3651 
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DZOME.P11 l2-MAY-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 
AM 1 1958 483% 1289% 1290 le9e% 1296 
<ee i 1187 1398 
KPeY  BaDeee et 
Ky ere l 720 761 762 12808 
DATACL TOME hele 15 i097 te 2201 2202 2216 2252 2253 2267 2303 
= be] % 
2354 2355 5569 sats sai? Scae deg Seu) Sai 53° speb 
27e7 2766 5 6 61 ll 84 + | l l 4 
3034 3139 a ty or mie 3215 3243 7 =o 3300 
4 " 
ase de 33 HG SHBR HDG He2ETRNZ TRE SRY 
4104 4109 4115 4169 4720 4743 
DATAHD 005204 1048% 1070 10738 
DELAY = 104413 237 
DE VADR 370 877% Sle 3228 
DEVTAB 9003010 $83 6488 
DH1 031135 478S¢e 
DH10 031435 47858 
DHe 031156 47858 
DH3 031214 47858 
DH4 031252 47858 
DHS O313le 47858 
DHE 031344 47858 
DH? 031412 47858 o 
DISPLA 001200 1428 498% SO4* 735% 
. DISPRE 000174 1288 S04 
' DMACTVY 001306 1898 Sel 676% 677 1280 1294 1376% 1577 1583 158%# 1588 
DMCM 007320 634 11878 
DMCROO 001500 279% 
. DMCROI 001510 284s 
' DMCRO2 001520 2898 
DMCRO3 001530 ese 
DMCROY 001540 2998 
DMCROS 001550 3048 
DMCROE 001560 309% 
DMCRO7 001570 3148 
DMCRIO 001600 319% 
DMCR11 001610 3248 
, DMCRI2 001620 3298 
DMCR13 001630 3348 
DMCR14 001640 3398 
DMCRIS 001650 3448 
OMCRIE6 001660 3498 
- DMCR17 001670 3548 
- DNCSR 001404 eee toes 602 607# 612s 647 765 802 1094 1117 1163 
DMCSRH 001406 2638 8 1144e LI4S*® 114Se 11SS# 1156# lilsee 11648 13078 1308# 1309 
OMCTL 001410 eb4e 1309% 1310# 1311 
DMNUM 001310 1908 479 751 1374* 1389% 1568% 1569 1578 1580 “ 
' DMPOY O0141l2 e658 1133% 1139 1176 1181 13l1® l3le# 1313 4366 4379 4421 
46224 4h23% 
OMPOE 001414 2668 1150# 1313# 1314# 
DMRLVYL 001376 eS9e 4 1316# 13178 1318 
DMRYEC 001374 esses 768 1299 1300% 1316 
Dms190 001502 2808 


ee ee ee ee em me ee - - _—+- 


1613 


1298# 


PAGE: 


1307 


0114 


LOS 
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DZOME.P11 12-MAY-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 
1 1 ui \ 
is Be 
DMS104 001542 3008 
OMS10S 001552 3058 
DMS106 001562 3108 
DMS107 001572 3158 
110 O01 & 
11) O0161 & 
lle O01 8 
DMS113 001 3358 
DMS114 O0164e 3408 
DMS11S5 001652 3458 
DMS116 001662 3508 
DMS117 001672 3558 
DMS200 001504 281s 
DMS201 001514 286 
001524 2318 
001534 e968 
001544 3018 
DMSe0S 001554 3068 
DMS206 001564 3118 
DMS207 001574 3168 
DMS210 001604 3218 
DMS211 001614 3268 
- DMSele 001624 3318 
DMSe13 001634 3368 
» DNS214 OO1644 3418 
| DMS21S 001654 346% 
DMS216 001664 3518 
. DMS217 001674 3568 
_ DOMS300 001506 e828 
' DMS301 001516 2878 
Bee fF 
' DMS304 001546 3028 
DMS30S 001556 307% 
DMS30& 001566 gles 
OMS307 001576 3178 
, OMS310 001606 3228 
’ OMS311 OO01616 3278 
| DMS312 001626 3328 
| OMS313 001636 337% 
, OMS314 OO1646 S428 
- DMS315 001656 347% 
DMS316 001666 3Se8 
DMS317 001676 3578 
OMTLVL 001402 e618 13208 1321* 
pve yale seus 13388 1319# 1320 
= ' 
ih 01500 i8¢ By 483 $36 S46 662 1290 1292 1370 1375 1605 
DONE 3734 784 786% 8068 l2lbs 
DT1 1460 47858 
DT10 031612 47858 
OT11 031634 47858 


oTle O31646 47858 


MO9 


MACY11 30(1046) IL1-JUL-77 11:40 PAGE 98 PAGE: 
BeONE Pit l2-MAY-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 
DTe 031472 47858 
DT3 031510 478S8 
DT4 1S22 47858 
1534 47858 
DTé 031552 47858 
DT7 031570 47858 
M l 47858 
M10 47858 
M11 1 478S8 
2 030530 47858 
EM13 030554 478S8 
EM14 030614 47858 
EMIS 030664 47858 
EM16 030705 47858 
EM17 030721 47858 
EMe 030210 478S8 
EM20 030765 478S8 
EM21 031006 47858 
EM22 031023 478S8 
EM23 031046 47858 
EMN24 031070 47858 
EM2S 031113 47858 
EM3 030253 478S¢ 
EMY 030317 478S8 
EMS 030361 47858 
EMG 030411 47858 
EN7 030430 478S8 
EOM 027574 3425 3521 3586 3590 3833 3838 4217 422] 4225 4311 45618 
ERCTOO 001704 3668 
ERCTO1 001710 3698 
ERCT 001714 3728 
ERCTO3 001720 3758 
ERCT 001724 3788 
ERCTOS 001730 3818 
ERCT 001734 3848 
ERCTO7 001740 3878 
ERCT1O 001744 3908 
ERCT11 001750 3938 
ERCTl2e 001754 3968 
ERCT13 001760 3998 
ERCT14 001764 4028 
ERCTIS 001770 40S8 
ERCTI6 001774 4088 
ERCT17 002000 4118 
ERR 002700 5 6188 622 
ERRCNT 001232 1638 747 774 1087#  130S# 
ERRFLG 001325 % 481s 733% 79S# 10378 1050 1064# 11234 
ERRMSG 172 1047 1065 10688 
ERRPC 624 6408 
ERTABO 005322 1062 10978 
XIT = 000205 Ste 
XITER Q0S2S2 1082 10878 
faoese 47668 4785S 
LORT 3é cess 591 eS 
FLTDAT O30106 4205 4215 4219 4223 4230 4270 47708 
So468 60s 609. 615 


O116 


NO9 


DOZOME MACYL1 30(1046) 11-JUL-77 11:40 PAGE 99 PAGE: O117 
OZOME.P11 12-MAY-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 
=e ban = 3030 he = 3176 3180 3251 3255 3372 3376 ae 
% 
18] BSé3ie g3cz 300 BER LEGER HLT 3443 
3370 3305 349 3610 3614 3631 3635 3661 3665 3682 3686 338 3707 
Fs 38 3883 3899 3903 3928 3932 349 3983 3%5 3974 42608 
TS 005222 1033 10798 
HILIN 366 876% 903 3218 
T OOle2e 1598 733 798% 
882 12028 
10020 1231 12598 
NIFLG 1324 le 07 527 S34# 
027156 2768 2812 2849 2857 2865 3524 3837 3542 3720 3734 3739 3763 3777 
i285 3987 4001 4006 4027 4041 4055 4060 4116 4126 4134 4231 4247 
4 4316 4331 4336 4S2S8 
INS 104404 2238 897 
INSTR = 104403 eels 1329 1381 1394 1403 1482 1491 
INSTR2 OO4166 8S3 8658 
INTTY OQl2e66 1414 1431 1441 1454 1470 16558 
007330 637 11878 
LIMITS OQO04314 a 
007016 11878 1483 
LOBITS 004372 878% 7 39238 324 
001220 1588 797% 614 1056 1779 1795* 18218 18378 1863# ‘:S886# 192i# 1941s 
2978 3010% 3053 3085* 31c8* 3160% 3203  3235# 
LOKFLG 001326 2038 
LOLIM 004364 875% 9208 
001224 1608 792% 796% 
LRC8 = 000200 45738 
LSTERR 001234 1648 490% 732% 1034 1036 1124s 
_ LUTYPE= eens U 7 4545 
f 
MASTEK 006142 10S8 11878 
MCRLF 005672 831 9S4 1054 1055 - 1063 11878 1328 1390 
MCSRX  00607¢e 737 11878 
MDATA 007544 994 12048 
MEMLIM 001304 i88s 700% 
MEPASS 005733 11878 
006217 1061 11878 
MERRX 006117 743 11878 
MERR2 005760 11878 590 
MERR3 006005 11878 
MESDAT 102 2949 3417 3423 3514 3519 3578 3584 2588 3644 3719 372 ot 3831 


3836 3911 3986 4040 pity 4101 4106 4166 4299 4309 4315 47 
358 3830 3835 4100 4105 4165 4214 4218 4222 


MESLD 027620 2948 «93422 «= 3518 = «3583 
MILK 001322 ‘oes agus = 74S—=«sdeBBe «1299 ©1297 
MLOCK 006043 714° «11878 
006144 668 11878 
006704 11878 
006 106 741 «11878 
Ai lee ee et ties §«1382««M2@?sANa?_sIMH?«Mb2 LNT 
é 
MR 005755 723. «11878 =©1346 
MRESET= 004000 Séa 


MSTCLR= 104412 e358 1126 1725 1749 1781 1823 1865 1923 1974 1996 2016 2052 2085 


DZOME _ MACY11 30/1045) 11-JUL-77 11:40 PAGE 100 
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2129. 0s «21870 2238 Ss 22889 
2685 


3412 le 7 
MTITLE 001000 1368 $11 
MTSTN 006130 1089 11878 1330 
MTSTPC 006031 11878 
MVECX 006100 739 11878 
XT O01e1s 1578 739 1 1676% 
2016% 2050% e2083% 2127% 
1# e609%  2b46# * 
3e02# 3276%  334e%  3410% 
NITCH O26346 4366% 4367% 4368% 4369# 
007154 S23 11878 1282 
NODEV 002674 577 6168 
006450 11878 1382 
OCOR 026350 2 2136 2198 2249 
4103 4108 4168 4226 
OK 002646 603 6108 639 
ONE 001302 1878 4785 
OUTRDY O26S0e el 2194 2240 2245S 
3817 3582 2g 4099 
44 4 4589 4698 4635 
PaAcTOoOo 001702 3658 
PACTO! 001706 3688 
PacTOe O0017le 3718 
PacTO3 O01716 3748 
PACTOY 001722 3778 
PACTOS 001726 3808 
PACTO& 001732 3838 
PACT 001736 3868 
PACT1O 001742 3898 
PACT11 OO1746 3928 
PacTie 001752 3958 
PACTI3 001756 3988 
PACT14 001762 4018 
PACTIS 001765 404s 
PACT16 00177e 4078 
PACT17 001776 4108 
PARAM = 104405 2eSs 1331 1383 1396 
PARAM! 004234 8818 
PARBIT= 040000 968 
PARERR 004310 884 886 888 8978 
PASCNT 001230 lbe8 734% 735 746 
PERFOR= 004537 a 
PFTAB 005430 ll2e 11288 
= 012600 7e8 0: 
POP1SP= 005726 708 
POP2SP= 748 801 
PRIO 006547 11878 1413 
= 177776 638 4764 7ll# 1617# 
PUSHRO= 010046 718 1083 
PUSH1S= 005746 698 
= De4646 738 
QV.FLG 001327 204s 4Bo# 7504 790 
RESREG 0052 1075 10788 


, 20 
RESTAR 005250 1108 11148 


2340 
4 


1405 


904 
771 


1627# 


B10 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2S06 
esss) = «e935 2980 =: 3055 


2296 2342 2347 2397 
4394 = 4403 4148-4439 


1484 1493 
906 908 
1304+ 


2401 
G448 


PAGE : 


2648 
3344 


0118 
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RESTRT 002534 749 753 7618 

RESOS = 104407 2238 1078 

RETURN 001214 1568 492% 720% 724 

ROMCLK= 104414 2398 861134 1137 ll; 
1826 1828 1839 1841 
1997 2021 2030 S 
2143 2153 2163 191 
2s49 2370 2399 
2618 2655 2664 


3792 ©3988 
41274135) 4614170 
y392 43% 
4483 4487 4490 4496 
4637 4640 53 
001316 1938 «= 4BS*# = «128 = «12878 
SAVACT O0i312 gis 671 1583% 
001314 1928 479% «74H 751# 
SAVPC 001276 igSe 0 beee = bH2 (909 
VRO 001260 1788 «= 938% = 9434785 
SAVRI 001262 1798 «628 = «9378 
001264 1808 «9368 = HS—«78S 
SAVR3 001266 isis «= 935 MHC<Ci«‘«é 
Saved 001270 1g2e | 934e# = 47 «41785 
VRS 001272 1838 «933 9 948 «41785 
SaVSP 001274 1848 
= 104406 2278 ©1038 
HAR 027152 2760# 2801 4477 = 4495 
SCOPE = 104400 215@ 1688 1711 173 
2114 = 2171, eee 2273 
71 2745 = e784 
34973554 = «3800 
SCOP = 104401 2178 1794 1807 ©1836 
315331 3234 3263 
SILOLD 026712 2765 «2781 «= BBO 82S 
SImBCC 0272 2992 3021 «= 306730 
3850 3990 4207 = 4301 
P 573 576 597 
SOFTSW 010052 122912688 
SOM 07544 3834 «46478 
SPACNT= 004713 94 988 991# 1005* 
SPEED 007340 11878 © 1440 
STACK = 001200 sys «6477, b90—Ss«:1092 
STAT 001240 1708 
STAT! 001366 2518 13018 1756 1758 
STAT2 001370 2528 «130ee 1978 2000 
STATS 00137 2538 © 1303# 
STFFCK LZ 47278 
STFFCL 027702 4501 47058 
STRTSW 001236 gee S13 Subs 517 
STUFDT 030126 47768 
STUFLG 27154 27b1# 2802 4498 4512+ 
vos © OO44Oe 9338 
SwFLG © OLOOLE 480# 825  1224* 1251s 


Stata te 
—-OO-n 
“No 
Neo 
1 


Bore 
Boros 


4232 


BRS 


$19 


4S2e8 
12578 


C10 


Ol 
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2891 


529 


2915 


§31 


2936 


666 


4S2l8 
96 


2938 


712 


be 


GES prom 
SEAR SSR TES 


4700 


4197 


4291 


1323 


L347 
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1377 


0119 
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SWMES1 


BEREERREES 


wp 
ptt tata 


SYNLD 


D10 
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007205 11878 1227 
007215 11878 §6le 
1 1438 497% 499 S03# $13 671 676 781 788 
1 l 1090 11S2 lele 12eS0# 
000176 1298 503 lele 1270 
000001 4o 8 517 1377 1601 
000002 ai 7el 1323 1347 
oooco4 438 
000019 42 666 
000020 418 
000040 408 
000100 398 =61152 
000200 388 
000400 378 ©1088 
001000 368 812 
000 358 1090 
000 348 7 
010000 338 827 1027 
3es 1032 
318 
100000 308 
366 2453 2481 2509 37 WIS g 
027464 3351 34 3516 3581 3828 4098 4163 4200 
OOiI416 e718 97 1118# 1119% 160% 1165* 11718 11838 #20198 
001246 S37* 1189 1613% 1614% 4389% 44Ol# 443S* 4446s 
ySSix 4565* 4S8S* 4596% 4631% 4464ee 4681 4686s 
001250 1748 S38* 1191 3751% 3752# 3753 3794 3795% 37 
4073% 40 4YOb4e 4265* 4 4348% 4349" 4350 4433 
440% 45078 j4YSi4e 4SSe# 45578 4583% 4599 
001252 1758 S40# S66# 618 627% 1193 | 1S01# 
3753% 3754 3780* 3781%  3796% 4yOO4# 4O0S* 40208 
wae 4250 4251% 4266% 4267 4334* 4335* 4350% 4351 
001254 1768 S4l# 1195 1399 1402 1408 14il 1487 1490 
001256 1778 S4¥e# 1197 1380# 1393% 1599 W417# = 44e3% 
104416 2438 2059 2569 2617 2654 2691 2728 2897 239093 
001 1488 aus 1214 1259 1655 4759 
001206 1498 es 6 1217 1219 1261 1657 
1350 43558 
001210 1508 83 aos 1029 1262 1658 
001212 151 834% 8S6* 1031% 1le64*  1660% 
004730 10178 - 
226 1618 491# 1102 1130 334 1343 167S5* 1699# 
1861# 1919% 1971# 1993 2015* 2049% 2082 elebt e2194# 
447% 247S5* 2503% 2531# 2560* ec608# 264S* 2682#  e2719% 
e932 4 2976% 3051* 3l2eb* 3201% 3275* 3341# 3409  3509% 
41934 4287 
1337 1355 16758 


Bie 


827 


4294 
20284 
44928 


40 19% 
44594 


3S41# 
40S8s 
47218 


1499 


1027 


PAGE: 


1032 


46278 
45394 


4072+ 
44764 


37368# 
4074 
WP4TS 


0120 


DZDME MACY1L1 wit 


DZOME.P1l 


12-MAY-77 


TSTe& )§«=6d 1 S36 
TSte7? 015724 
TST3 012442 
ST30 016014 
TST31 O16166 
ST32 016302 
TST33 016420 
TST34 O16536 
TST3S O16654 
ST36 017004 
TST37 017144 
TST4 012514 
TST4¥O 86017304 
TST41 O17466 
TST4¥2 017632 
TST43 O2014%6 
TST44 Q204%62 
TST4S 776 
TST46 O2l3le 
TST47 021550 
TSTs 012616 
TSTSO Oe2006 
TSTS1 O22340 
TSTSe Oees4e 
TSTS3 O2364e 
TSTSY O2S04e 
TSTSS 025274 
TSTS& O2S41le 
TSTS7 
TST6 012756 
TST6E0 = eeeeEE 


veRR 003878 
KHEAD = OOb2e4 


Os eel “77 11:40 PAGE 103 
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11878 


E10 


PAGE: 


O12: 


$s 


MACY11_ 30( 1046) 
12-MAY- ‘ 14: 


DZD 
DZOME.P11 
XLOC 003022 
xPASS 3562 
XPOLY 027316 
XSTATQ 0074S4 
XTSTN 005330 
XVEC 003554 
ZERO 001300 
$COD = seeeee LU 
SCRAP = 177777 
SENDAD 003522 
$N = 900057 
= 00006: 
$Y = 000017 
= 032202 


L1l-JUL-77 11:40 PAGE 
18 CROSS RE 
593% 611% BLY 
742 7698 

2984* 3013%  3059% 

3848% 3918%  4202# 
Say 11878 

1060 11008 
740 7668 
as ts 4785 

ls 16658 1668 

17678 #81770 17738 

1964 19678 19838 

20788 21158 2118 

23eSs 2328 23338 

Begs 24998 6 eSels 

eb418 26728 75 

28298 32 28378 

3043 30478 31158 

33378 33978 00 

40798 4082 40878 
123 509 7558 

1 1665 1671 

17268 1736 1742 

1817 1823 18248 

1961 1967 1969 

2018 20198 2038 

2l2e 2124 2129 

22398 8 2274 282 
387 2392 23938 

2493 2495 2501 

2563 2Sb48 98 

2678 2680 8S 

27608 2785 2793 

2883 2388 2889e 

3040 3047 3049 

3205 3206 3265 

3405 3407 12 

35748 3801 3813 

4152 4157 41588 

43558 

le 1676 16788 
abe 18668 1920 

20868 2127 21308 

2448 24518 2476 

26498 2683 26868 
933 29368 2977 

334S# 3410 34138 

4194 41978 4288 

ls 207% 215 
2378 2398 e4le 
1088 109 lles 
2728 2778 2798 
2928 eo4e 2358 
3098 3108 3lis 
3258 3268 3278 
H1s 3428 3448 


F10 


04 
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64S 
3088* 
4e95R 


6588 
3134* 3163%  3209# 
4561 4563 45718 
16898 1692 1695* 
1812 18158 9518 
19898 200S*e 2008 
el7es e175 21808 
2379 2385 24378 
eSe7# 2498 8625 
27098 8 e7ile2 27158 

77 28818  e232e8 
gli2zes 31908 319 
34988 3501 35058 
4147 41508 417938 
16788 689 1695 

9 17508 1767 

1857 8s9 1865 
19758 1983 19 

47 2052 20538 
2172 2180 218 
2289 ecs08 8 62325 


es 25078 
e7e3e 862757 27608 
30 30S68 3le 


3238* 


32844 


33504 


34354 


35i# 


o~, 
G10 
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3578 Sis Ses 6578 675 1110 1120 11688 12038 12058 1260 1262. 1284 
4378 1422 1S42 1S46 1593 1624 1656 1659 2890 2916 2937 3492 3708 


33 
GIN 003152 690 
CNVRT O4472 23429558 
VR OO4466 23209548 
BaTAC o0sss2 e42 «11598 
DELAY 005436 238 = «11328 
003364 7318 4288 
ERRTA 031660 104% = «47858 
4750 115 10268 
INSTE 004154 224 B61 8 
INS 050 222ts«iO 
INST1 004070 s44e 864 
MSG 004072 B42 BY 
MSTCL OOS4BE 236 = «11438 
“PARAM 004174 226 20 s7ee 
“PFAIL 005336 1130 478—s«1107@ = 1115 
“RESOS 904434 230-9438 
ROMCL OOSSO4 eyo = «11488 
SAVOS 004374 228 02-9298 
SCOPE 003576 31607798 
SCOP] 003736 218 0 Allis 
START OOe00e 13204768 4921247 
TIMER DOSEIE 244 «11708 
TRPSR OON7IE 11710148 
TRPTA 001330 2i4e 1019 
TYPE  OO3756 220 © -B2ee 
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ONEND 1a 785 
Hrs’ oh age?) 710«1734«A7BS «17891806 = «183S-—sdeNB=S«1981 «190219381984 981 


2633 70 39 707 7 744 77 819 664 87 S 
a5 68 Gl GP Ge Ge gs iG 8h i fe Be Be 
3e$7 3308 3312 3374 3378 3447 3451 346 3472 484 3493 3 3612 
=e Pee RE eee ee RS 
4048 4068 Stat 4114 4123 4133 4141 4177 4238 4260 4269 4323 4344 4353 
4541 4746 

$SABORT ls 

$AUTS ls S47 

CC. le 2965 3040 3115 3190 

SBINCR le 3265 3331 

SBINWI 1s 2376 

SBUFFE le 1199 

TA ie 4179 427 
$CLOCK le 2005 


00 
es7e 2584 es91 2620 2629 26s7 2666 2694 é703 2731 2740 28S2 2860 


SCYCLE ls 1271 
SEMPT le 4079 
OP ls 725 
SF INI le 4355 
SFLAG is e 
LOAT ls 1867 1887 1925 1942 
SGETPA ls 
F lg re eeerey 
ADE ls 
SINACT le 2437 2465 2493 2521 
SINIT is 
INE1 le 1851 1909 
Ul ls 1gé5 1689 17l2 173% 
$LUle2 ls 7&7 
$LU17 ls 1809 
SMARHI ls 
SMARK ls 2829 
SMATCH le 3534 3730 3773 3997 4951 4243 4327 
SMOCK ls 
$MODEM le 2874 
SMSG ls 1187 
SMULT ls 
SPATTE ls 2746 2785 
SPFAIL ls 1103 
$6061 ls 06 4616 
SGUEST le 13681 1394 1403 1482 1491 
SRAMCL le 1131 
SFCLK le 1134 1137 1174 1179 1680 1703 1727 1751 1784 1786 1797 1739 1926 
18393 1841 1871 1873 1892 1894 1928 1930 1946 1948 197 1997 2021 20390 
Sous Soup Sopa) Seay) Seag ROSS «Sag Saeg Sass); See 
4 r 1 é < 
zSle seyf seo8 5623 sé3¢ 5213 2627 ebs5 s2c4 26392 §3 1 3725 573 2763 


furulrulur- 
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OZONE MACYLI 30(1046) L1-JUL-77 11:40 PAGE 108 PAGE: 125 
OZDME.P11  12-MAY-77 14:18 CROSS REFERENCE TABLE -- MACRO NAMES 
8 2866 2895 2907 «2910s 42 )Ss2HHSi«29S3)=s«w32B7?=—«“«iwG::«=(‘ié‘idR:«C«i«CGDS 
goi3 S880 BOR geRDCSEse «= Seag—sSeugSssSce>SsGel)S798S 37903799787 
3? 398 gor 401g deg MOHe 405 40) HG 1g i? He? ei 
ui70 48 weve 4259 ebe S17 ade G37 NG M87 43 W393 OS 
41 444y 
oe) wu? dasa RBS HERBSHG EES eee «See HBES BASS 
47 
SRCRC OC 3N9B 
C le 2549 2598 2635 2672 2709 
SSCOPE is 
$e IMBC le 4sue 
INAC le 
SSF TC le 1207 
Se TUFF le 
AC le 1961 1983 
STCHAR le 3416 3513 3577 3824 
STCRC le 3397 3655 3801 
Then on 2 oe oe ee 
eTBepe oul ee, 5182S pasi]tti‘iSStiéikR?ti‘ikRSSCOSkti‘ikti“‘i‘ikkSSCOtCiDtsiéi 
STSTN le 1673 1697 1720 1744 17 1859 1917 1989. «1991-2013. 047s) 224 
4 > Bue 3473 250i 35299 2668 2606 5643 368 si? S984 
soge S633 SeB 53335884 (Soua os; O399~=Sé«s«S3BQ.SsaSCMO?)~Sse0?)~=—s «3668 «= s«381S ©4089 
Gis2 4191S 4285 
SINE is etre 2229 BemH «2S 
$x2 is ieee fe71 i689 1695 1712 1718 173% 1742 1767 1773 «1809 1815 1951 1957 
1909 «19's 196] 1983 1989 2005 2011 2039 2045 2071 2078 2115 2122 al7e 
3189 2223 «Baal «= Baru) «= Bee? «2325 333s«B7e «03S BY?) 443 eS = Bu7T = 34932499 
oo el oe Ue Clee Cie «esa Se 
soce S857 SRST SBS SBS CSHEE = SudgSs‘Sc cc 9 36e6 «— 3801 «S813 40S) Sa? Sry 
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